rSB H»TNTiN»NCF riARNOSTTC POOGPill 



7FFS 



DIAGNOSTIC C0KT50L PR0nP»!1 



PAGF 



1 



?RP LOC OBJECT CODE 



ADD' STHT SOnPCE STATEHEST 



0000 



0000 



OOOO C2 01 COOC 

OOOU D'! FO 1" 

"007 71 F5 IB 

OOOA F3 F1 to 

OOOD n F1 OD 

0010 D1 FO 17 

0013 CO 87 0200 

0017 ''0 3B 50 

OOlA DO 87 00 

OOID 0200 



0015 



001F a0D7D5U0F2F5F8F9 003B 

0027 F9F0FO40UOC5C3U0 

C07F E7R7E7F7E7E7F71»0 

0017 l«0UOl»Ot»0D3 



0200 



02'. 
02CU 
0207 
020A 
020D 
0210 
0213 

02if; 

C?1S 
0?1C 
Oi21 



0200 
0200 



C2 
i!2 
P2 
FO 
El 
B1 
F3 
El 
El 
4C 
D2 



02 
01 
87 
33 
FO 
F5 
?1 
F1 
FO 
3B 
01 



0210 

60 

03 

SD 

OA 

3B 

UO 

16 

OA 

38 003B 

3C 



THX^ PREVENTS GENB?'.TTOS O'' OBJEC DECK 



DECK I* 

SEO 6 

COJI 
PAP STA^T X»0' 

******* ****************iL^*:^tt:^^t^^^^^^^tf ****** *i>**c^*m***************^* 
* BOOTSTRAP - FIPST CAPD * 

*************************************************** *********^^*it:******* 
************************** *******************************^,^^^**t^*^»^,^ 



2 

3 

a 

5 

6 

7 

8 

9 
10 
11 
12 
13 
Mi 
^5 
16 
17 
1° 
19 
20 
21 

22 B00T1 
23 
2 '4 
25 



* 
* 
* 
* 
* 
* 
* 
* 
* 



THIS OHE CARD PPOTRAH '^S CONTAINED IV THE FIf»«^T CA'»'> OF ?"'=' 
DTAGNOSTTC CONTROL PR0n?A?1. IT IS T?EAD INTO LOCATIOVS 0-95 BY 
TNITTAL "ROSRAS LOAD. HMES f^IVEN CONTROL, THF BOOTSTRAP OCUTTNS 
READS THE SECOND CARD OF THE DCP 0B.7HCT DECK INTO 512-607 AN"i 
BRANCHES TO IT. 

NOTE - THE SECOND TTC'^ OF THIS CARD CONTAINS THE PA'T NHI?'^'' AK" 
EC LEVEI. O'' DCP. 



* 
* 
* 
* 
* 
********************************************* ******************^*i^m**** 
I'ilNG BO0T1,XR1 

LOAD BASE REGISTER 

GO HALT IF HFC'J ERROR OR NOT "EADY 

LOAD READ ADDRESS REGISTT7 

READ A CARD INTO LOCATIONS '"12-^.07 

LOOP UNTIL DONE 

GO HALT IF ERPO? 

GO TO "ODTSTRAP ROU'^TSE 



LA 
TIO 

no 

610 



26 B00T1A TTO 

27 -T-IO 

28 B 
29 

30 BOOT IE HPL 

31 B 
32 

33 BOOTH DC 
3!» 



O.XPI 

BO0T1E Cfl) ,X«FO' 

B00T1 1 ( ,XR1) ,y' "^i 

TPL,READ 

B00T1A(,X-1) ,X' F1» 

B00T1E(,XR1> ,X'F0« 

300T2 



35 
35 
35 
35 
36 
36 
36 
36 
37 
3 8 



DC 



H5,HH 
B00T1 (,XP1> 

AL2(512) 

CL:9' PV 2589900 



♦fl^CO SO"^ READY OR ERROR 
GO TRY Af^AIN 



EC XXXXXXT 



L' 



*♦******♦****''♦♦♦♦**♦******»♦**♦*♦***♦****♦**♦**♦**♦♦*♦♦♦♦««♦«*♦»*»♦** 
* BOOTSTRAP - SECOND CARD * 



39 *•**♦♦**♦***♦*♦**♦♦*♦*♦♦«*♦«♦«*♦«** *»«*--*^ + ^*^^^^*^,»^^^^^^;»^^^ 

ao • 

41 * 

U2 * 
tt3 * 

'■iU * 

us * 

(J6 ♦ 

ua * 

U9 *♦*♦*♦*•******♦*♦*•♦*♦♦♦•♦•*••♦♦♦*♦***♦♦♦♦♦♦****•♦«*»♦•*♦♦♦♦*♦♦♦♦«*«*#* 



THIS ONE CARD PROTRA!! IS CONTAINED IN THE SECOND CAt^D 0" THE 
DIAGNOSTIC CONTROL POOGRA"!. IT IS READ INTO LOCATIONS 512-565 
PY THE TPL CARD. THIS ROtTTTNE READS THREE IPL FORSAT CA^DS IN-^O 
LOS CORE TO BOILD ENOOGH OF THE DIAGNOSTIC LOADER TO HANDLE TEXT 
CARDS. THEN THE BOOTSTRAP ROnTIHS BRANCHES TO THIS PORTION OF 
THE DIAGNOSTIC LOADER, WHICH LOADS THE PEflAINDER OF '^HE LOADER 
AND DCP. 



******* 

* 
* 
* 
* 
* 
* 
* 
* 
* 



LA 
J 



50 

51 

52 

53 B00T2 

5« BT2 

55 

56 300T2E HPL 

57 1300T2A TIO 

58 LTO 

59 SIO 
fO B00'"2R TIO 
61 
62 
63 



ORG 512 
DSING BO0T2,T''1 
USING 300"'2,XR2 
LA BOOT2,Xn2 

96(,XR1) ,XR1 

BO0T2A 

H5,HH 

BO0T2E (,XR2) , X • "0 ' 

BnOT23 (,XR2) ,y' l'5' 

• rL,READ 

BOO-, 2B (,X''2) ,X' F1 • 

BOOT2E(,XR2l ,X» FO • 

59(60, Xfl) ,59 

60(,XR1) , XR1 



TIO 

five 

LA 



LOAD BASF REGISTERS 



♦^•''Cn NOT READY OR ER"!!" 
GO HALT I" ?IFCIJ NOT READY O" i^nuoR 
LOAD READ LSR FOR ADD" 0000 
''EAD A CARD 
LOOP tINTTL DONE 
GO HALT IF ERROR 
•!OVE DATA '"0 COR" 
TNCR""1'='NT rorVTEP FO' Nf ?" CAop 



DATE 
EC Nu. 



?i«r)CT69 
ei6529 



1UNOV69 
816555 



20JAS70 
816576 



09FEB70 
816640 



09fHR70 
P16638 



'^ncT7o 

316760 



01APR71 
8139tt»| 



P^nr; in 

PAG" 



1 



IBH HMMTBHAHCE DTAGNOSTTC PPOGPAH 



FFF5 DIAfJNOSTIC CONTROL PROGPAH 



PH"'^ NO. 



la. 



ERR LOC OBJECT CODE 

022a »F 00 39 05 

0228 EO 01 OD 

022B 3C aO 08FF 

022F DC FE 08FE 08FF 

0235 CO 87 008B 



0239 03 
023A 0000 



ADDR STMT SOHHCE STATFMEV" 



0060 



0060 C? 02 OOoC 

006tt C2 01 0880 

0068 B« 08 2H 

006B El FO 25 

006^ 31 F5 OB 

0071 ?3 F1 00 

00711 El F1 18 

0077 BO F3 03 

007A B9 86 03 

007D CO :0 0000 

0081 FO 3B 50 

0031* EO 37 12 

0087 FFFD 

0099 FFFC 



008^ CO 87 0060 
0087 7D F3 00 
0092 F2 81 06 



0205 
02 39 
023R 



0&5C 



O'^'l 



0088 
008A 



SLC 
BfZ 
MVT 
MVC 
B 



300T22 (1,XP2) ,B0CT21 (, VP2> TOV-^vtlP TJNTTL U C^ODS "«MD"=T) 

900T2A( ,X92) 

X'RFF'.C ■ CL"?." PWTVT rTFLD 

X'8F5' (^"^5) ,X •8F'" 

3'^2*1 
TLI" 3' 
AL2 (0) 



6I4 
65 
66 
67 
68 
69 

70 B00T21 Ef)rj 

71 BOOT22 DC 

72 BOOT23 DC 
73 
73 
73 
73 
73 
73 
7i» 
75 
76 
77 
78 
79 
80 
31 
82 
83 

au 

85 

86 

87 

88 

89 

90 

91 

92 

93 

9« 

95 

96 

97 

98 

99 
100 
101 

102 * 

103 •* STJBROrjTINK ?0 READ ONE CA'^D. 
10I> * 

105 nsiNr; CDREAD-a,XP2 



OFG T'60' 

********♦*♦***♦*•*♦*»*******♦******<**♦*****♦***♦***•«*♦*♦♦«♦♦♦♦«*»»«», 

* DTA^NOSTTC LOADED * 

********************* ******m**m**m***^ **t*:t****^^*lt:t: V**-, f*********^L*^J,t 
*******************% ****^*t^^^^^Mt-^^^t,^,^:^^^t:^^^:f^^^^^^^ y*«*«»« *♦«**«»♦, 

A ONE CAPD BOOTS'^RAP FEAD^ THIS LOADER IVTO CORF AVD B''ANCHS "^^ * 

T". THE DIA'^NO'iTTC LOADER THEN LOADS TH'=' COM'^POL PROTRAI, * 

TNCLaDTNG ITS SECTION PEESRESCE TABLE. A^'TE^ DCP IS LOADED, ""4t<; * 

rODHLE THEN "^RAVSFORIS TTSELE IN"^0 S SECTON' LORDE" RT AL'!'E^'!'MT A * 

S'ANCP ADDRESS. OBJECT CARDS RECOSNT~FD 3Y dt^H PHASES IMCL"DF * 



TEXT 
REPLACE 
CCHyiENT 
SENSE SWI-^CH 

END 

DCP LOADER PO''TTON ALSO RSC0r;ST7ES 1 

SFT 

UDT 

CHAIN TIATE CONTROL AND I«AGE CA'JDS 



OTHER CARDS ARE TTNOPED. 



TH! 



FOLLOWING CARDS-- 



************************************************* *********^*t**t******t 



106 CDPEAD LA 

107 TJ 

108 ATNPHT FOW 



109 

1 10 

111 noiio 

1 12 

113 PnSY 

1 1« 

115 



ST 

TIO 

LIO 

SIO 

TIO 

SNS 

TBF 



116 CDEXTT 9T 



1 17 KPP 
1 -8 
1 19 

120 NFG3 

121 NEHU 
122 

123 

12U N'XTP 

125 

126 



HPL 
P 

DC 
DC 



B 

CLT 
v7E 



CD''EAD-1I,T''2 

INPUT, Xnl 

♦ -1 

CDEXTT+3 (,XF2) , A^R 

ERR (,X''2) ,X ' E0« 

AINODT(,XR2) ,X' ^5' 

KOP?I,READ 

BfJSY(,XR2) ,X'E1 • 

STATns (, XR2) ,X' F3» 

STATnsf, X-'H) ,vi 85« 

*-• 

H5,HH 
D0LTO(,XR?) 

XL2 ' F?i='D ' 
XL2»FFFr« 



CD'EAD 

( , T tj 1 , , r- t . 

LOon 



LOAD BASE ADDRESS 
? ^T 

SET 'IP PETriRN ADDRESS 

no HALT TF riPCtI NOT "FAOv np Tvpn'^ 

LOAD 'SO TO STA"'T lOADTNT AT "^OC^ 

READ A CAPD - S0P1AL lODE 

LOOP 'JNTTL R-AD DON'=' 

'~rO HALT IF FEED O" ""AD CH^^K 

EXIT SUPPOrj-^INE "^F NO ''^■Q^r,<^ 
♦IFCTI NOT READY OP "'PPOR 
"O TOY S^A""^ I/O 



on ^ p n » 
T^ ANC!! 



A CH^D 



: " s T 1 



DATE 
EC HO. 



2l»nCT6 9 
816529 



mN0V69 
816555 



20,7AN70 
816576 



09FEP7n 
8 166«0 



0O1HO70 
81663H 



oi'v-T-'r) 

*?1^7'iO 



O 1 H -> ; ■ 1 



p^• 



1 s 



TBH HUTNTSNAHCE DIAC^NOSTTC PPOGPHS 



FFFS 



DIAGNOSTIC CONTPOL PPOGPA"! 



PAST NO. 



2S89901 
2 



ppp toe OBJECT CCD5 



ADD"? ST«? SOOPCE STAT'SI? V 



009S 7D CS 00 

0098 F2 01 71 

O09B 7D DO 01 

009S F2 01 03 

O0A1 7c 2A 01 

00A4 D2 01 01 

00A7 BU 01 01 

OOAA BD OR 01 

OOAD ED 92 3'' 

OOPO C2 03 08D'' 

OOBU 3C 00 OOPF 

0CB8 or 00 OOC^ 003F 

003E A5; 00 01 01 

AE 00 01 01 

OE 00 00?F OOFD 

3D Oa OOfF 



00C2 
O0C6 
OOCC 
OODO CO 01 00P3 



OODU 6C 02 01 CO 

0008 3*. 01 0088 

OODC 36 C2 008R 

OOEO 3tt 01 OOSD 

00E4 3D 97 00?D 

00F3 CO 3tt OOBU 

00 EC C2 01 08 BO 

OOFO 7D C5 00 

00F3 F2 81 16 

OOFS 1C 02 0106 19 

00F3 1C 00 0107 17 

0100 D2 01 1A 

0103 1C 00 0000 00 



0108 CO -7 008B 
010C 35 01 0882 
011C DO 87 CO 



0103 



0108 
010C 
0112 
C118 
011E 
0122 



3C 
OC 
or 

OE 
3D 
CO 



ao 

FE 
FF 
01 
01 



1FFF 
1FFE 
1EFF 
0115 
011« 
0112 



1FFF 
1 FF7 
0131 



127 
128 
129 
130 
131 
132 
1 33 

1 3!» 

135 
13^. 
137 
1 38 

1 39 

lao 

141 
1U2 
143 

mu 

1U5 
lUfi 

m7 

1tt8 
1i»9 
150 
151 
152 
153 
15U 
155 
15'i 
157 
158 
159 
150 
161 
162 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
ISO 
181 
182 
163 
184 
185 
186 
187 
188 
189 
190 
191 
1<^2 
193 



LOO? 



LEMC^TH 
CflLOOP 
SI 
S2 



LPTOSE 



HOVE 



CLI (,T?»1) ,C"=:' 

JNE CK5EP 

CLI 1 {,XR1) ,X'DO' 

JNE *+6 

HVI 1 (,TR1) ,T'2R' 

LA 1 (.X^l) ,XR1 

ST LDIJ0PK{,XR2) ,XP1 

CLI LDW0RK(,X''2) ,X»58' 

BL L00F{,XP2) 

LA TSPTTT + e7. X'03» 

BVT 3 1+1,0 

nVC 52 + 1 (1) ,S1 + 1 

ALC 1 (*-*,Xn2) ,1 (,TP2) 

ALC I ,*-*,X^2) ,1(,TP2> 

ALC Sl + 1 (1) »^1 

CLI S1 + -. ,4 

5NE CflLOO? 

?5Vr 1 (3,X'?1) ,0(,XP2) 

A NS';3,XP1 

A VEG4,XP2 

ST LDW0l^»,X''1 

CLI LDWOF' ,X' 97» 

3" LENGT" 

LA IVP0T,X'>1 

CLT CTP'') ,C«R' 

JE CKP5P 

HVC 10VE+-:(3) ,25(,X?1) 

BVC «OVE + u(1) ,23(,r''1) 

LA 25 (.X-fl) .XP-* 

nvc *-♦(•-*),*-*•(, x^i) 



B NEXTH 

L TNT'nT + 2,XP1 

3 0(,XP1) 



BRANCH I" NOT END CA''D 



P5PLACE ALL HEX 'DO* BYTES WIi-H •2A' 



INI-^IALITE 
IHI-^IALI2E 



POINTEPS 
LENGTH OF 



SHIFT OFF Hiaw-OPOE" 



ADD FIELD 
2 BI""S 



PPEPA'^E 
CONTINUE 



ro O^E'A'^E OV NEXT BYTE 
UNTIL 4 BYTES CGIPOESSEP 



'EKPCAWY 



flOVF 3 C9?IPPSSSED BYTES TO 
PPEPA9E FOP NEXT 4 BY"ES 



'-•ONTISOE nSTIL CAPD DOSE 

POI\T XP1 AT "EAD-TS FISLr* 
IF "^HIS TS ^M^ CAPD, "0 ON 



'I' TO "!OVE TEXT DATA TO COPE 



TNST^JCTiON TO HOVE TEXT DATA 



(NOTE 



-- ADD" EST ?.' 
THE SA^E AS 



'HA" 



OF CKPEP) 






THE ABOVE 3 INSTBUCTTONS ABE nVEPLAYED DTTR INC, NOPflAL DCP LOADING. 
FIP.ST THE CLEAP ~0?S POUTINE OVEP'.AYS T'^En. THEN THE PEST OF THE 
LOADEP OVEPLAYS T'<AT POOTIN?. 

IF THESE PTPST 5 CAPDS APE USED AS A GESEt^nL LOADEP, THESE LAST "^WO 
TNSTROCTTONS CAUSE A 3PANCH TO THE END CAPD ADDRESS, WHEN END CAFD 
IS "EAD 



ALL ABOV TNST^tlC^IOVS A'>E 
CAPDS AT THE BEGTNNTNl OF ■ 
OF HANDLini TEXT AND EKD TARDS 
THE DCP LOADER IS^^O COPE. 



CTNTAINFD IN IPL FOP«AT 
HE r>CP OBJECT DECK. TH' 
AND IS DSED TO GET " 



BOOTSTRAP 

CODE TS CAPABLE 
HE REflATNDEP OF 



ECO* 
ORG 



BEGIN GENEPA-^INR TEXT CAPDS 



■11 



THl 

IT 

AS S -.ON AS IT IS MOVED ''O COPE 



FOLLOWING TS A 
S CONTAINED IN 



ROUTINE TO CLEAR COPE ? 
THE FIRST TEXT CA^D OF 



''On 8K DOWN 
DCP, AND IS 



TO ITSELF. 

EXECT^^D 



CLPCOP 



7P0 



nVT X»1»'FF»,C' • 

1VC X' I'FE* (255) ,X« IFFV 

HVC X' lE^F' (256) ,X' 1FFF' 

SLC ZRO+l (2) ,NrT»l255 

CLT :^PO+2,X»01» 

8H ZPO 



CLEAR UPPER 256 BYTES 0" 

FT^ST 8K WITH "LAHKS 
CLEAR NEXT 256 BY'^E SEGMENT 
POINT TO NEXT 255 BYT" SFGWNT DOWN 
CONTINIJE TJW^IL PFADY FOW 100-iPF 



DATE 
EC NO. 



240CT69 
816529 



mhOV59 
81fi555 



20JAS70 
816576 



09FEB70 
816640 



09'!AR70 
81663R 



01OCT70 
816760 



01APR71 
61R948 



PPOG 
''AGE 



TO 



OFFF -5 
2 



IBH HATHTEN4NCE DIAGNOSTIC P50GRAH 



FFr5 DIAGNOSTIC CONTROL PROGRAK 



PAP-" VO. 
PATE 



2A 



EFP LOC OBJECT CODE 

0126 OC CD 01FF 1FFF 

012C CO 87 008B 

0130 0100 

0200 



010B 

0108 CO 87 COBB 

010C 7D D9 00 

010F CO 01 OAOD 



ADDS STBT SODPCE STATBPIENT 



0131 
0132 

O20O 



0113 


CO 87 


..2 6 


0117 


OH 




0118 


0885 




011A 


0136 




one 


7D C5 


01 


C11F 


F2 01 


06 


0122 


B5 01 


DA 


012S 


DO 87 


00 


0128 


D2 01 


08 


012B 


Ba 01 


J8 


012E 


CO 87 


0226 


0132 


02 




0133 


0000 




0135 


0000 




0137 


AE 01 


DA * 


013B 


7D HO 


01 


01 3E 


EO 81 


2F 


oim 


D2 01 


01 


oiua 


7D 6B 


OO 


01U7 


EO 81 


DF 


OliiA 


D2 01 


01 


01UD 


EO 8'7 


CP 



0117 
0119 
011B 



0132 
013'4 
01 ^6 



0150 7D 5C 00 
0153 F2 01 OF 
0156 38 01 0208 
015A EO 10 2F 
015D CO 87 021A 

0151 21 

0162 EO 87 2F 

0165 «ID 02 02 05D2 

015A CO 01 0196 

u167 OF 03 020D 020D 

017U D2 01 OS 

0177 2H 01 0181 

017B C& 87 0226 

017F 02 

0180 0000 

0182 03F8 

018« CO 87 03F9 

0188 7D 6B 01 



0161 



C17F 
0181 
GIRT 



19U 
195 
196 
197 
198 
199 
200 
200 
200 
201 
202 
203 
2 0« 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
22U 
225 
226 
2 27 

22^ 

-> *o 

:-3 i 

73) 

:?3i 

■30 

:'.3o 
:'30 

::3"i 

2 3? 

2 n 

2 3" 

2 3-; 

?36 

^37 
2 IB 
2 39 
200 

2m 

2U2 

2-'i 

2a« 

2«5 
2«I6 
247 
2«fl 
2«9 
250 
251 
2 5/ 
253 
2 5U 



nvc 

B 
Nr!H256 DC 

FNDCLR EQn 

ORG 

X200 FOTJ 



OP- 
B 
CKRFP CLI 

CKcom bnf; 

*♦ NOT'; - 
♦♦ LOADING 
** HANDLIN 
3 

DC 
DC 
DC 
CLT 
JSH 
L 

B 

LA 

ST 

B 

DC 

DC 

DC 

ALC 

CLI 

BE 

LA 

CLT 

B^ 

LA 



XI 11?F' (^200-5Nr.CL'») ,X' 17FF' CLEAS "EST OF THIS SEGSFH" 

NFXTR PF-PN^KR LOADER 

XL2«0100' 

♦ 

X'200" 



AJDEST 
NEXT 



SPCf 
DFS" 

CKBT K 



CLRCO 
NEXTF 
0(,XP 
CKCOH 

ROANCH 
COPIPLE 

G S5CTI 
PACK 
ILI'tt 
AL2 (T 
A L 2 ( D 
1 (,XR 
AJDES 
DEST( 

(,X? 

SRCF { 

"ACK 

IL1'2 

AL2 (* 

AL2(* 

DEST{ 

1 ,,XP 
NEXTR 
1 (.X-? 
0(,XP 
CKBLK 
1(,XP 
NFX-^ { 



1) ,C'H« 

A 

ADDPFS.S OF P!?3:V 

TE. THIS OVFPL 

ONS. 



NPOT+5) 

EST) 

1) ,C>E' 

T 

,XP2) ,r?i 
11 

1) ,XP1 
,XP2) ,XR1 



CONTINUE LOADING, GHT N'=:XT P^COPP 
3PANCH IF NOT REPLACE C^^D 

lorjS BRANCH IS ALTF^FD AFTER ^C 
AY PREPftOFS "^HE LOADF" FO^ 

GO ^ACy tDDRE~S 



B'JANCH IF NOT PATCH FXFCnfE CA^n 
BRANCH TO CARD ADDRESS IF IT IS 
POINT AT "T^ST BYTE 

SET n? sonpcF addpfss 

TO PACK THIS BYTE 



-*) 

-*) 

2,T^2) ,N1(,XR2) 

1) .C • 

(,XR2) 

1) ,XR1 

1) ,C',' 

(,XR2) 

1) ,XR1 

.XR2) 



INCRFSEVT DFSTINATTOK ^DDPFSS 
GO PFHD "'XT CABD IF ''LANK FOTIMP 

INCPEKENT T'. NFX'^ COLITfTN 
J01O OVE" ANY COMMAS 

PO^N"' AT 2ND DIGI"^ 
GO ^ACK "HIS 3Y'''E 



** ""IE FOLLOWING CODING COr^LETES THE SECTION LOADER. IT TS 

♦* fPASSSO DURING DCP LOADING. ONCE THE CONTROL PR0^°A«1 IS LOAD'^D, 

*♦ :.'NKAGES ARE SET UP SO THAT THIS ROUTINE WILL BE SU-^STI- 

♦ ■» "^ITEI FOR THE DCP LOADER ROUTINE RESIDING A? HEX -A00-. 



CKco*, . :-i 
"IE 
TBN 
IT 
a 
I. 
B 

CHKSSW CLC 
BNE 
SLC 

T'ISS J LA 

CHKS'C ST 
B 
DC 

SADDP DC 
DC 
p 

CLI 



0(,XR1) ,€'*• 

CHKSSW 

SBYTS0,SSV07 

NEXT? (,XR2) 

PRINT 

XL1'21' 

NEX-^K (,XR2) 

2 (3,XH1) ,SS'iJ 

CHKEND 

SBYTE5(U) ,S3YTE5 

5 (,XS1) ,XR1 

S ADD'»,X-'1 

PACK 

IL1'2' 

AL2 (•-•) 

AL2(DATSWS) 

SETSSH 

1(,TR11 ,C',' 



BRANCH IF THIS TS NO"^ \ C01T'='N" 

CARD 
BYPASS POINTING ,^ SSH07 TS ON 



'A^n 



PRIN"^ CONTENTS OF THIS 

GO READ NEX'^ CARD 

BRANCH IF NOT SENSE SW^-^r-j? cti^V 

CLEAR SECTION SENSE SWITCHES 
POINT X?t1 AT FT': ST SSW N'H» 
SET UP POTN'''ER TO THIS NUIBS'' 
GO PACK THIS NUIPFP 



'HECK ''OP HOR'^ FN-OTT'S 



OATE 
EC NO, 



2ilOCTn9 
8165;9 



1UN0V69 
816555 



20JAN70 
P16576 



9;'E970 
8166U0 



09«nR7n 

8 16638 



010CT70 
816760 



01 AP"? 1 
ai89U8 



""OG TD 
PAGE 






TBH .1M\TESASCE DIAGNOSTIC PR0GPA1 



'FS 



DIAGNOSTIC CONTPOL PROr.RAfl 



P*9T NO. 
PAGE 



2Sa9901 
3 



E"? LCC OBJECT CODE 



ADDP STST SOUPCF STATEHEN"' 



o^^B 


D2 


01 


03 






255 




LA 


3(,TR1) ,r?i 




POINT TO NEXT NTJIErP 


018E 


CO 


81 


0177 






2 56 




BE 


CHKSSO 




CONTINnE tlHTii. CA^D DONE 


0192 


CO 


87 


0083 






257 




B 


NEXTR 




VHEN DONE, GO READ NEX"^ CAPD 


0196 


7D 


CS 


00 






258 


CHKEND CLI 


(,XR1) ,C'F' 




GO READ NEXT CA"D I'' NOT END 


0199 


FO 


01 


2F 






259 




3NP 


NEXTR(,X"2) 






019C 


38 


oa 


OIFD 






260 




TBS 


FLAG, 9175 






01A0 


DO 


90 


81 






261 




BF 


129(,X91) 




3PANCH •^O X'"01> 


01A3 


CO 


97 


0000 




01A6 


262 
263 


LDX 
LDXa 


B 

EO'J 


*-1 






01A7 


3U 


08 


01A6 






264 


LDPT2 


ST 


LDT3,A'?'» 






01AB 


70 


87 


0060 






265 




3 


CDPEAD 






01AF 


39 


AC 


OIFD 






266 




TBF 


FLAG,BIT0*9TT2*BIT4+BIT5 


0193 


EO 


10 


33 






267 




BT 


SEXT?*4 (,XR2) 






01B6 


CO 


37 


02 IE 






268 




B 


1NPACK 






OIBA 


02 








019A 


269 




DC 


XL1'2' 






0139 


01FF 






01BC 


270 




DC 


AL2(DTA3LE+1) 






OIBD 


OOSF 






OIBE 


271 




DC 


AL2 (STATUS) 






01BF 


ID 


02 


005" 


5A 




272 




CLC 


3TATnS(3) ,"a{, 


.X'l) 


CHECK ID 


01C« 


F2 


01 


10 






273 




ass 


HLTHD 






01C7 


ID 


03 


OIFU 


5F 




274 




CLC 


DECO (4) ,95 (,XF1) 


CHECK FOP CA^D 


OICC 


F2 


81 


13 






275 




JE 


OK 






01CF 


ID 


03 


OIF'; 


5F 




276 




CLC 


DEC1 (4) ,95 {,XP1) 


CHECK "OP CA"!) 1 


OIDU 


F2 


81 


09 






277 




JE 


OK 






01D7 


35 


Ofl 


01FF 






278 


HLTHD 


L 


DTABLE*1,AR!> 






01D3 


FO 


3B 


73 






279 




HPL 


HD.i^H 






01DB 


CO 


87 


01AB 






230 




3 


LDPT2+4 






01E2 


38 


20 


OIFD 






281 


OK 


TBS 


FLAG,9IT2 






01E6 


CO 


10 


01A3 






282 




n? 


LDX 






01EA 


EO 


87 


33 






283 




9 


NEXTP •J(,XP^) 






01FD 


00000000 




OI'^O 


284 




DC 


XL4«0' 






OIF* 


FOFOFOFO 




01FU 


285 


DECO 


DC 


DL4'0' 


DECO 


"inST STA^T AT X' 1F1' 


01F5 


F1 








01F5 


286 


D5C1 


DC 


DLI' 1" 






01F6 


000000000000 


01F3 


287 




DC 


XL06"0' 






01FC 


0060 






OIFD 


288 




Vf 


AL2(CDREAD) 






01FS 


01A7 






01FF 


289 




DC 


AL2(LDPT2) 




i 














290 












OAOO 












291 




-<9r. 


X'»nO» 


















292 


* THESE - 


NSTFUCTIONS AND 


CONSTAN' 


rS APE US^D ONLY BY THE DCP LOADER. * 














293 


* THE nsi 


Ori" SECTIONS OF 


THE SEC 


TIOS LOADER AP" LOADED INTO thj; * 














294 


* LOADE" 


AREA, /'OOO' - K 


:'1F" . 


* 














295 
























296 












OAOO 


F0FUF8 




0A02 


297 


D048 


DC 


DL3'048« 






OA03 


F1F2F0 


1 




0A05 


298 


D120 


DC 


DL3'120' 






OA06 


18 








0A06 


299 


s2a 


DC 


ILT 24» 






0A.7 


C3C8C1 


C9D5 




OAOB 


300 


CHAIN 


DC 


CL5'CHAIN' 






01 oc 


00 








OAOC 


301 

302 


CHCTR 


DC 


XLI'O' 






OAOD 


7D 


' r 


no 






303 


CKCOHfl 


, CLI 


(,XF1) ,C'*' 




BRANCH IF NOT COSHENT CARD 


OA10 


F2 


c; 


-3 






304 




JNE 


CKCOO 






0A13 


CO 


67 


108tt 






305 




3 


FIX'lOB 






0A17 


38 


01 


02C8 






306 




TBN 


SBYTE0,SSaO7 




SKI'' '>PINTING IF SS307 IS ON 


0A1B 


EO 


If 


2F 






307 




BT 


NEXTR(,TR2) 






0A1E 


CO 


37 


021A 






308 




3 


PRINT 




PRINT CONTENTS QF THIS CAPD 


OA22 


21 








0A22 


309 




DC 


XL1'21' 






OA23 


EO 


87 


2F 






310 

311 




B 


S r<TR(,XR2) 




GO "EAD NEXT CARD 


0A26 


7D 


C3 


00 






312 


CKCPTT 


rtr 


0(,TR1),C"C- 




BRANCH IF NOT CPtJ DEFINITION CAPD 


0A29 


F2 


01 


3U 






313 




JNF 


CKJfDT 






0A2C 


1C 


00 


0200 


O't 




314 




nvc 


S«!0D(1) ,4(,XR1) 


PHT ''YSTEn nODEL INTO Sot 


Oa31 


CO 


87 


lOBtt 






315 




B 


-TX10B 




GO DO riC OVEPLAY ETC. 


0A35 


CO 


87 


0226 






316 




3 


PACK 




PACK COPE SI'"' INTO SP-^ 


0A39 


04 








0A39 


317 




r^c 


ILI'U* 






0A3A 


0889 






0A3B 


318 




DC 


AL2(INP'IT+9) 






0A3C 


020 3 






0A3D 


319 




DC 


AL2{ST^'=;) 






0A3E 


3B 


80 


0204 






3 20 




SBF 


CIJ.X'SO' 




SET DUAL PG!1 FEA''tI'»E FLAG TF 


0Aa2 


7D 


F1 


OB 






32' 




ClT 


11 (,XR ) ,C'T 




COT 'IHN 12 CONTAINS ' 1« 


OAttS 


T2 


01 


04 






3 2? 




JNR 


• ♦7 






DA'^E 


2ftOCT69 


14VO?69 


20JAH70 


09FEB70 39I1A<»70 


')10CT70 01APP71 PPOG ID nF'='P-5 


EC HO. 


816S29 




816555 


816576 


816640 816638 


81676C 


818948 PAGE 3 



TBH HIITIITBIIAIICB DIARWOSTrC PFOGRH!! 



FFF5 DIAGSOSTTC COHTROL PPOnPAB 



PAPT \'Q. 
PHI? 



3 A 



ERR LOC OBJECT CODE 

0A«8 3» 80 0201* 

OtLUC 7D C2 Oi» 

OAUF F2 82 06 

0A52 7D C<» 04 

0A5S 50 OU 2F 



ADDS STMT SnOPCF STATK?11=:NT 



0AS8 
0A5B 



FO 
EO 



3P 6F 
fl7 2F 



OA'iE 

0A5F 

0A60 7D 

0A63 F2 

0A6', 

0A69 

0A6C 

0A70 

0A76 

0A79 

0A7D 

0A81 

0A82 

0A8H 

OA86 

0A8A 

0A8D 

OA90 

0A93 

0A96 

0A9A 

0A9F 

0AA2 

ORAS 

0AA9 

OAAE 

CAB1 

OAB« 

0AB7 

OABA 

OABD 

OACO 

0AC3 

0AC7 

OACA 

OACD 

CADO CO 

OADU 7D 

0AD7 F2 



09 

00 

EU 00 
01 AA 

7D ao 03 
F2 01 OA 

00 025P 
2C 02SE 

01 OS 
01 OA8 3 
87 0226 



025F 



E2 

B8 
F2 
FO 
CO 



30 

OC 

D2 

3U 

CO 

02 

0000 

0A5F 

C2 02 022P 

02 03 

10 01 

90 07 

3b 6F 

87 008B 
8D 00 00 OASF 
F2 81 07 
BD 00 00 
CO 01 0A8A 
8C 00 00 OASF 
B3 OF 01 
BC 00 02 

01 01 

60 00 

01 03 

01 01 

ao 00 

81 008B 

6B 00 

01 07 

01 02 
87 0A79 
FO 00 

02 05 
OADA UE GO 00 OASE 
OADF 7B FO 00 

0AE2 OC 01 0F73 OOFD 

0AE8 4F 00 00 OOFD 

OAED F2 82 OA 

OAFO OE 01 0F73 0F73 

0AF6 CO 87 OAEP 

OAFA OC 00 0B07 0F72 

OBOO OC 00 OBOA 0F73 

0B06 BA 00 01 

0B09 BA 00 02 

OBOC CO 87 OAED 



D2 
7D 
F2 
D2 
7D 
CO 
7D 
F2 
D2 



0B10 UO 
0B15 F2 
0B18 3C 
0B1C 
0B20 



3C 
CO 



02 02 OBAS 

01 OC 

00 0208 

00 0209 

87 C'7ll 



0B2t; 
0B29 



ao 04 06 OAOP 
F2 81 08 



323 

32U 
32S 
326 
327 

328 CDEPSO HPL 

329 B 
330 

OASF 3 31 N9 DC 

OAS' 332 DEV DC 

3 33 CKtlDT CLI 

33« JSB 

335 CLT 

^36 JNF 

3 37 MVT 

338 yivc 

3 39 PTFDC LA 

3U0 'JLPI ST 

3ai 3 

0A81 3tt2 DC 

0A83 3U3 OPT? DC 

OAS'^ 3Utt DC 

3a5 LA 

3U6 ULP? LA 

3tt7 TEN 

348 JF 

3 49 HPL 

350 B 

351 UDTA CLC 

352 JF 

353 CLT 
351. 3NF 
355 LDOD" MVC 
35n SBF 
3 57 1VT 
35'i LA 
353 CLI 
3 60 JN'? 

361 IJLPU LA 

362 CLT 

363 3F 
36U CLT 

365 JJJ5 

366 LA 

367 B 

368 UDTB CLI 
3 6 9 .7 NL 
i70 ALC 

371 nOTC SB? 

372 MVC 

373 0LP3 SLC 

374 JL 
3 75 ALC 
376 B 
3 77 TJDTD MVC 

378 HVC 

379 0SET1 SBN 

380 USET2 SBN 

381 B 
382 

383 CKCCDS CLC 
384 
385 
386 
387 
388 

389 CKCHN 
390 



sr.N cpn.x'RO* 
CLT 4 (.X'l) ,c»a' 
JL cdt:r?o 

CLI 4 (,T91) ,C«D' 

BN!I SHXTF(,XR2) 

HO.HH 

SFXTH (,X''2) 

XL1 '09« 
TLTO' 

(.X^H ,C'ri' 
CKDCPS 

3(.X''i),':' ■ 

?T"='DC 

'I''A3*4S,X'0« 

'JTAB*44 (45) .HTf. ? + 45 

S (,XHH ,X?1 

'IFT'f.X?! 

°ACK 

"L1«2' 

al:?(*-*) 

AL7fDEV> 
?ITAB-3,X''2 
3{,X?2) ,X-?2 

1 (,X'»2) ,BTTT 
trPTA 

•^O.HH 
N S T P 

i i,xP2) ,n5v 

LDrjDT 

(,X'?2) ,X«0' 

0L'>2 

rl,XP2) ,nEV 

1 (,X?2) ,X'OF' 

2 (,XP21 ,X'0' 
1 (,XR11 ,X-0 
n (,X?1) ,C'-' 
♦ ♦6 

1 (,X?1) ,X^1 

0(,x9i),c« • 

(,XP1) ,C',' 
IDTB 

2 (,XP1) ,XP1 
'JLPI 

(.X^l) ,X«FO' 
tlDTC 
CfX"') »^9 

(,XP1) ,X'FO' 
MASK (2) ,11 
0(1, XOI) ,N1 
nDTD 

lASK (2) ,1ASK 
0LP3 

'JSFT1 + 1 (1) ,'1Ar.K-1 
aSET2 + 1 (1) ,«A'K 

1 (,XP2) ,*-• 

2 (,XR2) ,*-• 
aLP4 

2 CrXPI) ,SSWD 
JNF CKCHN 

MVT SBYT^'O," tf)i 

flvi ^:'^vTE^,r•o• 

3 T5SSW 

CLC 6 {S,X''1) ,CHA f'J 



ys, lo PFA'^ Hrxr cA^n 

♦NO, CAPD SF''' T? TIPPiP'^nLY 
"^0 ''FAD NFXT C; ^ i '.p-^^io -!AL" ^^S?.' 



BRANCH TF •JOT nt)T CA^n 

nSF THIS CA^n AS A CON^TMnA^TCN TF 

COLiIlN 4 IS KO'' PLASK 

TF "LANK - CL'="A' UVr 'ABLF ^n^ AIL 

NEW ENT^IFS 

SE"^ UP DEVICF CODE POIV'F" 

PACK DEVICF CODF 



POINT AT DCP 'INTT ~ABL^ 
TNCPE?1FNT nsi" "ABL^ POTSV" 
^'AKC'? 1'=" KO" LAST DCP "ST"/ 

♦^AS OriT POO"! IV UDT ''"ASL" 
f^O PFAr> .•JF^" CA^'D 
P^ANC^ '"0 OVF^'LAY T"^ THIS TS '^A"'^ 

IS THIS ?.S' 'JT'S'^D :«~T}y 

IF VOT Ty'TS"D, GO CHFCK SFX" 

SFT 'T? T^TF 'T'^T F*T'"^Y DEVIC" Cn^ip 

CLFA'' O?"^": *! BITS 



'"/TNT A!" ' 
"0" DAS" 



»j -y w( n T7 o ^ T ■ 



T"^ "LANK FNCOnNT=:^HD, CA^'l IS ?f 
T- '"0"1?^A FNCO')V"'EP''D, ^O TO "JF?" 



CHAV^F EBCDIC 0-^ TO BINARY 



M^'T ?IT "^O "ROP'="'' t>0S"'TT0N 



LOAD MASK TVO SFT BITS ov 

: S iTPOCTTOHS 
Tf'PV ON PROPFP OP'''TON "^IT 

00 LOOK AT NEXT OPTION NnS'^'^P 

P- ANCM TF NOT SSH CA^D 

C: •■K" '' '.y.OK STNS^ SWITCHES 

"^0 S'-T pooPF" SFHSF SWI'^CH'^S 

BRANCH T" -:0'' CHAIN I?1A"F COM'^'^'iT. 

CA'D HTTH '//CHATS' "T* •// CHAT'"'' 



DATE 
fC HO. 



240CT69 
816529 



14M0V69 
316S55 



2njAN70 
816576 



09FF37-) 
816640 



09i1AR70 
8166 18 



9 1 OCT :■ 
816760 



01 A'-'"'' 1 
qi 948 



''A' 



T p s*- s 



IB"? miSTTHASCS DldGNOSTIC pi?OGR)lH 



P\r^T SO. 
PAGE 



2539901 
4 



FFFS 



DIAflHOSTIC CONTROL PFOGPAH 



HRR LOC OBJECT CODE 



ADD? STST SOHRCF STATEHEHT 



0S2C 


<JD 


OU 


07 DAOB 




391 




CLC 


7(5,T?1> , CHAIN 




OBI i 


F2 


01 


3D 






392 




JSE 


CKEND 




0B3tt 


3C 


17 


0B83 






393 


T5CHSI 


SVT 


I!1GADP,23 


INITIALIZE INAGE FIELD POINTER 


OB^e 


3C 


02 


OAOC 






3 9tt 




HVI 


CHCTR,2 


SET DP FOR 49 POFITTON LINE - 2 ~DS 


03 1C 


3C 


00 


0878 






395 




nvi 


LPIHAG»120,X'0« 


SET FLAG FOR 48 CHA" CHAIN 


03U0 


UD 


02 


OA 0AO5 




396 




CLC 


10(3,XB1) ,0120 


BRANCH IF NOT 120 POSITION PRINTER 


0Ba5 


F2 


8- 


IE 






397 




JF 


TS120 




0B48 


UD 


02 


03 0AO5 




3 98 




CLC 


11 (3,TR1) ,D120 




OPUD 


F2 


81 


16 






399 




JF 


TS120 


NAKE SORE CONTROL CARD 


03 50 


HD 


02 


OA Oil 


i02 




UOO 




CLC 


10(3, T^l) ,D048 


HAS FTTHER 120 OR 0';8 IN IT 


0B55 


F2 


81 


16 






ttOI 




JE 


NOCHG 


OTHERWISE HALT 


0358 


«D 


02 


OB 0AO2 




!J02 




CLC 


11 (3,TR1) ,D048 




03 5r) 


F2 


81 


OF 






103 




JE 


NOCHG 




0B6O 


FO 


3B 


f-r 






ao« 




HPL 


H0,HH 




OPrl 


EC 


87 


2F 






U05 




B 


SEXTP(,TR2) 




0B66 


3C 


05 


OAOC 






tt06 


IS120 


HVT 


CHCTR,5 


CHANGE "n 5 CA^D COUSTER 


0P6A 


3C 


FF 


0878 






1*07 




BVT 


LPI1AG + 120,X'='F> 


SET "LAG "OR 120 CHA^ CHAI'i 


0365 


F2 


87 


2A 






i»08 
IJ09 


MOCHr; 


J 


RDCO 


ENTER LOOP ■''0 LOAD CHAIN CARDS. 


0B71 


70 


C5 


OO 






mo 


CKESD 


CLT 


(,TF1) ,C'E' 


IF NOT END CARD; THEN IGNORE AND 


0B7a 


EO 


01 


2F 






an 




3»S 


S57TB(,XR2) 


GO GET NEXT CAWD. 


0377 


C2 


01 


0150 






ai2 




LA 


CKCOJIjXRI 


CONNECT REST OF LOADER 


0B73 


3a 


01 


0112 






413 




ST 


CKC0ai*3,TR1 




0B7t' 


CO 


87 


0DC6 






41 s 
416 




3 


BEGIN 


GO BEGIN DCP 


03B3 


CO 


8-7 


0226 






OKCTP 


B 


PACK 


" ACK THIS PRINT ISAGE DR'"A CARD 


0397 


30 








0?B7 


417 




DC 


IL1« 4B» 


INTO PROPE" LOCATION 


0B88 


03AP 






OP 99 


418 




DC 


AL2(IHP-IT + 47) 




058 A 


0800 






8 89 


419 


T^nxDv 


1 DC 


XL2'800" 




0B3C 


OE 


00 


0383 


0A06 




420 




ALC 


TSGADP{1) ,N24 


ADJUST PCINT'JO PO^ NEXT CARD 


0B92 


OF 


00 


OAOC 


0390 




421 




SLC 


CHCTRfl) ,OHE 


DECREMENT CARD COnVTER 


0B9q 


EO 


C-; 


2" 






422 




aNH 


NEXTR(,XR2) 


GO "FAD NEX*^ CARD IF ISAGE COnPLETE 


039B 


CO 


f7 


0060 






423 


PDCD 


3 


CDRFAD 


''O READ K?.!.-" IMAGE CARD AND RF'^'TPN 


039F 


CO 


87 


038 3 






42U 




3 


OKCTR 


■:0 BACK AND PROCESS ^HE CA^D 


0BA3 


E2E2E6 




03A5 


425 


S5HD 


DC 


CL3«S?;W» 
















426 






















426 






















426 






















426 






















426 






















4^^ 






















4:7 


****»**««*« 


















428 


* Fon* 


I'^HS ************************************************************* 














429 


*********** 
















OOFU 


430 


!»1 


EQD 


LPTONE-4-2 














0880 


431 


INPUT 


EQO 


X'330' 














00 5" 


432 


STATUS 


; EQTj 


CDREAD-1 














on5r> 


433 


LDWOPK 


EQIJ 


CDRHAD-3 














'1-^ 


434 


tlDTI 


EO'J 


X'2U9» 


LAS1" 3?TF 0" fTH UD'' EN^RY 












0<o1 


435 


tJDT2 


EO'I 


X'261' 


LAST BYTE OF l^-TH UDT ENTRY 












00 ao 


436 


TPL 


EQO 


X'40' 


flFCIJ CON-'ROL CODE - TPL lODE 












0000 


437 


NOP1 


Eon 


X'0» 


aFC'J CONTROL CODE - NOR'IAL MODE 












0OP1 


438 
439 


BEAD 


EQTJ 


X'FI* 


HFCn READ 9 CODE 


0200 












440 




opr. 


X'200' 
















441 


*«*4i«***#Ji*t^**««*****««**«***«*****«**********«**«**«*******4t*«***4i**^ 














"'42 


* 




SECTION 


PEFEPESCE -^ABLE ♦ 














(143 


*************************************************** «*«**«*«*«*«4<***4.«** 














'-44 


• 






* 














445 


* THE DATA 


IN THIS TABLE PROVIDES THE DIAGNOSTIC SECT TON/CnNTPOL * 














4 46 


* PROGRAM : 


INTFRFACS. IT IS LOADED 3Y THESE FTIP METHODS-- * 














447 


* 


S?T OBJECT CARD 


* 














443 


* 


COSTPOL PROGHAS EXECtlTTON 


* 














449 


* 


rONTOOL PROGPAS ASSEH3LY 


* 














450 


* 


TIDT CAPDS 


* 














451 


» 






• 














4^2 


************* *****«*4<«*****************«**4i****«********************f** 














453 










DATE 


2UOCT69 


msov59 


20JAH7O 


09PE370 09«AR70 01OCT70 OIAPR'1 PROG Tp OFPF-5 


EC HO. 


816S29 


816555 


016576 


816640 


8ir,cifl B16760 81894 < PAGR 4 



IBH HATKTr SUNCE DVHRNOSTIC PPOCaAB 



p\r>T so. 



til 



FFFS 



DIHGHOSTTC CON'^POL PROGP\S 



E9R LOC OBJECT CODE 



0200 00 

0201 00 

0202 0000 ■ 

020a 00 

0205 00 

0206 0000 

0208 00 

0209 00 
020A 00 
020B 00 
020C 00 
020D 00 

020E OOOOOOOO 



0212 35 10 0537 

0216 35 10 09FD 

021A 35 10 02Ctt 

021E 35 10 06P0 

0222 35 10 C9FF 

0226 35 10 0231 

022A 35 10 0S5C 
022E 05BS 
0230 03SB 



0232 CO00O000C00-)000O 
023A OOOOOOOOOOOOCOOO 
02U2 OOOOCOCOOOOOOOOO 

02ttA ooooonooooooonoo 

0252 OOOOOOOOOOOOOr^no 

025A ooooooooooooiono 



ADDP ST?!T SOOPCE STATEHEN" 



0200 
0201 
0203 
0204 
020S 
0207 
0208 
02 08 
0209 
020A 
020B 
020C 
020D 
0211 



2 2F 
0231 



02 32 
0261 



U5(i 

ass 

t»56 
U57 

t»58 
U59 

aeo 

Ufil 

a62 

«63 
464 
«»65 

l»66 
!»67 
tt6B 
469 
U70 
471 
472 
4 7-1 
474 
4 75 
4 76 
4 77 
'.78 
4 79 
480 
481 
4 82 
483 
484 
4 95 
4 8'= 
487 
488 
483 
488 
488 
488 
488 



* 

*♦ SPT DATA 



SI7S 
CPO 



LBASE 

S9YTE0 

snyTEl 

SBYTE2 

SBYTE3 

SBYTE4 

SBYTES 

PPFT 



DC 

DC 

DC 

DC 

DC 

DC 

EOO 

DC 

DC 

DC 

DC 

DC 

DC 

DC 



TLI'O' 
XLI'O' 
XL2»0' 
XL1 'O' 
XL1 '0« 
XI 2'0' 

XLI'O' 
XM'O' 
XL1 '0' 
XL1 '0' 
XL1 'O' 
XLI'O' 
XLU'O' 



* 

TES 
Ll-t 
PPT 
t'NP 
HAL 
PAC 
LOA 
LBS 
TTB 
♦ 



AS3EBPLED TPANSF^^ '^APL- 



K 

N~ 

ACK 

T 
K 
D 



L 
L 
L 
L 
L 

L 
DC 

D'- 



TP1 ,TAP 
TP2,TA'> 
T?3,TAP 
T'?4,IAP 
TPS,I AP 
T^fi^TA" 
TP7,TA? 
AL2 (LBn) 

AL2 {pr;;^^) 



SYSTS<« BOPPI 

PESEPVED 

COPE ST7,E TS HEX 

CPO OPTIOSAL ''EATnPES 

COMBOS SEVSP SWITCHES 
S^CTTOK SENSE SWITCHES 



ITN«'\G'' TO PEAD CON'SOL"^ .SWT'CH'"^ 

LINKAf^E "0 CHAIN "OHT TNE/SEC'TC^' 

LIVKATF TO PPTST "^ESSA^" 

LINKA'^E ""O aSPACK PST-A 

LTVKATE TO HAL"" 

LISf ATE -"0 '>ACK DA"!! 

LTS'KAG'^ "O LOAD A M~W .S"'~~TO\' 



nNTT OEETNTTTON "^APLE 



IITAB 



Eon 
DC 



XL48' lOOr)' 



RATE 

EC HO. 



240CT69 
816S29 



14N0V69 
816555 



2OJAN70 
816576 



09FEfl70 
816640 



09HAR70 
816638 



01OCT7O 
816760 



01A'"P71 
818948 



ppor; XD 

PAf;E 



4A 



TBH BATNTENANCE DIAf^NOfiTIC PPOr,i»»N 



P>PT 10, 
Pf r,?. 






^FF*^ 



DIAGNOSTIC CONTROt PRORPAH 



POP LOC OBJECT CODE 



ADDP ST!",T SOURCE STATEMENT 















490 


*«*****• 


*«**•««* 














491 


♦ I.OAP 


♦*♦♦*♦**♦♦♦*♦♦»♦*•♦♦♦♦•«**♦**♦**♦♦•♦♦♦♦»♦*»»«♦♦♦***♦♦*»»* LOAD ♦ 














4«2 


««*«*«»« 


*«*^***** 














493 




















494 


* StTBPOnTI 


NE TO LOAD PPOt^PAMS OR DATA PEroR'^S FP01 THE LOADING ♦ 














495 


♦ DE 


VICE. 


ENTRY TO THIS S'IBROUTINE T"^ HADE AS FOLLOWS — * 














4 96 




















4 97 




B 


LOAD WHERE LOA") IS EQTMTSD TO y'22A' * 














498 




*DC 


XLI'FLAGS' * 














499 


* ♦*DC 


XL2»DXXX' XXX - PROTRAB ID ♦ 














500 




















501 






FLAr; PIT ON ♦ 














502 






SON" - NORMAL TSPBINATION ♦ 














503 






- HE HALT, LOAD XifX, HA HAL"^ ASD GIVE XXT * 














S04 






CONTROL ♦ 














505 






1 - ABN0R?1AL TE'BINATION * 














506 






2 - READ FIRST "ECORD OP XXX INTO X'330« AND ♦ 














507 






RETURN CONTROL * 














503 






3 - READ NEXT SBPUENTIAL RECORD INTO X'OPO' » 














509 






AND RETORN COHTR^L ♦ 














510 






4 - LOAD XXX AND GIVE XXX CON-^nOL ♦ 














511 






S - LOAD XXX AND RETORN CONTROL • 














512 






5 - SEEK TO VTOC AND RETtIRS CONTROL ♦ 














513 






• \0-"E FLAG BYTE, NOT BORE THAN ONE BIT CAN BE SET ON * 














514 






A CAIL TO THE LOAD ROUTINE IN DCP ♦ 














515 






♦♦NOTE PROGSAB ID IS ONLY INCLHDED IF BIT 0,2,4, O? 5 ♦ 














516 






IS ON ♦ 














517 




















518 


**♦**♦•*♦♦***♦***♦•*♦****»**♦***•*******♦**♦♦♦♦♦***♦♦♦♦*******♦♦***♦**♦ 












0203 


519 




nsTNf; 


L3A5E,XR2 












OOFO 


520 


FO 


EOO 


X»FD' 












00 FA 


521 


F1 


EOO 


X»FA' 












00F1 


522 


F4 


EQB 


X'FI* 


026 2 


3U 


02 


0291 






523 


RLOAD 


ST 


L0DEB*7,XR2 SAVF XP2 


0266 


C2 


02 


0208 






524 




LA 


LBASE,XR2 


026A 


B4 


08 


3D 






525 




ST 


PLDA*3(,XR2) ,ARR SET DP RETURN ADDRESS 


026D 


B« 


01 


85 






526 




ST 


LODEn*3(,XP2) ,XR1 SAVE XR1 


0270 


EO 


87 


OA 






527 




3 


TEST(,XR2) 


0273 


B5 


01 


80 






528 




L 


RLDA*3(,XR2) ,XP1 POINT AT FLAGS 


0276 


BE 


01 


8D 0390 




529 




ALC 


RLDA*3(2,XP2) ,OSE ADJUST RETURN 3 












0277 


530 


lONE 


EOO 


♦ -4 


027B 


^c 


02 


01FF 


02 




531 




nvc 


DTABLB*1(3) ,2 (,XR1) BOVE ?LAG,DXXX 


0280 


78 


10 


00 






532 




TBN 


0(,XR1),BIT3 TEST FLAG BYTE 


0283 


F2 


90 


10 






533 




JF 


LD1 


C2P6 


CO 


87 


0000 






534 




B 


«-« 












0289 


535 


ENTPyi 


'^on 


♦-1 


028A 


C2 


01 


0000 






536 


LODEB 


^A 


♦-♦,XR1 "ESTORE REGISTERS 


028E 


C2 


02 


0000 






53.- 




LA 


♦-♦,XR2 


0292 


CO 


87 


0000 






533 


PLDA 


3 


♦ -♦ 












0296 


539 


LD1 


EOO 


« 


0296 


78 


02 


00 






540 




TBN 


0{,XR1) ,HIT6 


0299 


P2 


10 


89 






541 




JT 


LE2 SEEK TO VTOC 


029C 


8E 


01 


''n 03 


32 




542 


RLD1 


ALC 


RLDA*3(2,XR2) ,TWO ADJUST RETURN % 


02A1 


79 


2C 


00 






S43 




TBF 


(,XR1) ,BIT2 + ?IT4*BIT5 FLAG BIT 2,4,Oo 5 ON? 


02A«» 


F2 


90 


7B 






544 
545 




JF 


LE2 YES 


•)2A7 


BA 


80 


BD 






546 




SBS 


RLFLGS(,XR2) ,BTTO SET ERROR BIT IF ABNOSBAL 


02AA 


78 


40 


00 






547 




TBN 


0{,XR1),BIT1 TSRBINATTON 


02 AD 


F2 


10 


11 






548 




JT 


PTBSG 


J2B0 


BB 


80 


BD 






549 




SBF 


RLFLGS(,XR2) j^ITO OTHERHTSF, TURN IT OFF 


02B3 


B8 


';o 


00 






550 




TBN 


SBYTEO (,XR2) ,SSW01 LOOP ON ROUTINE IF SSV» 01 IS ON 


02B6 


CO 


10 


0S3F 






551 




BT 


LNKIA 


02BA 


B8 


80 


00 






552 




TBS 


iiBVTE0(,XR2) ,SS»00 LOOP ON SECTION IF SSWOO SET 


02flD 


CO 


10 


0000 






553 


PTZEFO 


BT 





02C1 


CO 


87 


05P8 






554 


PTBSG 


B 


PPRTNT PRINT SECTION TEPBTNATB BSG 












02ca 


555 


TTR3 


ROD 


*-1 


02CS 


C7 








02C5 


556 


PI.F1GS 


DC 


Xt1»C7' 


02C6 


12 








02C6 


557 




DC 


IL1M8' 


DATE 


240CT69 


H»N0V69 


20JAB70 


09FEB70 09HAB70 01OCT70 01A??71 P!»Of; ID JFFF-5 


EC MO. 


816529 


816555 


816576 


816640 


816638 816760 818948 PAGE 5 



IBfl H11IMTEH»NCE DIAGNOSTIC P^ORRAM 



FFFS 



ntAGNOSTTC CONTROL PROflRAB 



PAV^ SO. 






FPR LOC OBJECT CODE 

02C7 05A7 
02C9 FKOO 

02CB BB 01 00 

02CE F2 10 06 

02D1 FO 3B 7C 

02Dft EO ■>! OA 

02D7 33 HO 01 

02DA F2 10 OU 

02DD AF 03 05 05 



ADDR STHT SOORCE STATEHKNT 



02E1 


78 


80 


00 


02EU 


F2 


10 


3«; 


02E7 


C2 


02 


0208 


02EB 


C2 


01 


oiFn 


025F 


78 


01 


00 


02F2 


F2 


90 


OD 


02F5 


6H 


00 


02 6F 


02 F9 


78 


OF 


02 


02FC 


F2 


90 


16 


02FF 


7B 


OF 


02 


0302 


BD 


F1 


E6 


0305 


F2 


01 


09 


0308 


FO 


3B 


6C 


030B 


EO 


87 


OA 


030E 


BC 


FD 


E6 


0311 


AF 


00 


E6 D6 


0315 


B5 


01 


E6 


0318 


6D 


01 


02 B8 


031C 


CO 


81 


0308 


0320 


1C 


02 


01FF 02 


0325 


CO 


87 


0000 



02C8 
02CA 



n2DK 



023E 



0328 



0329 CO 87 028A 



558 
559 
560 
561 
562 
561 
5 6« 
565 
566 
567 
5f8 
569 
570 
571 
5/2 
573 
57U 
575 
576 
577 
578 
579 
580 
531 
5 82 
5 83 
Sfltt 
5 85 
586 
5 87 
588 
589 
590 
591 



HLTF 
PLD2 



THPE5 
LEI 

XP«'I'1 
LX1 

PTP 

LX2 



CHKFtt 
HLTC1 



STEP 
HOVTD 



LE2 

;!:ntrt2 



DC 

DC 

TBN 

JT 

HPL 

B 

TBN 

JT 

SLC 

EQU 

TBN 

JT 

LA 

LA 

EQU 

TBN 

JF 

ALC 

T^S 

JF 

SBF 

CLT 

JSE 

HPL 

B 

K7T 

SLC 

L 

CLC 

BE 

nvc 

B 

EQU 

3 



AL2(T!1ST) 

XL2'FF0O' 

•5BYTEO(,XP2) ,SSW07 

PLD2 

HE.HH 

TEST(,T'?2) 

SBYTE1 (,Xl'2) ,<5SW09 

LEI 



BYPASS HALT IF SSW07 ON 

HALT TO TSDTCATE SECTION CO«PLF'^5"1 
GO CH5CK DATA SWITCHES 
TF SSV09 IS ON, 

THEN DON'T CL" SKC^. SWITCHES 



S3YTE5(l*,XR2) ,S9YTE5 (, XB2) CLEAR SECTION SSW 
*-3 

FLAG BIT ON 
IF ON 



(,XR1) ,3IT0 

LE2 

LBASE,XR2 

DTABLE-1,XR1 

*-1 

(,XP1) ,BIT7 

CHKFtt 

2 (1,XR1) ,L0N'f,XP2) 

2(,XR1) ,X'OF' 

noviD 

2 (,XR ) ,X'0F' 

PTR(,X!;2) ,Ftt 

STEP 

HC,HH 

TRST(,XR2) 

PTR(,XR2) ,F0 

PTR(1,XP2) ,TH''FE(,XR2) 

PTF(,XR2) ,X 1 

2^2, XP1) ,PTZEPO + 3(,XP2) 

HLTC1 

DTABLEtl (3) ,2 CXRI) 

♦ -* 

*-1 

LODEH 



FOR CARD SYS (J LE2 ) 



DATE 


2U0CT69 


1I»S0T69 


20JAN70 


09FEB70 


09HAR70 


0ir'CT70 


01AP»71 


pa;-)'-. TD 


Opcr_c; 


EC HO. 


816529 


816555 


816576 


8166«»0 


816638 


816760 


8189i«fl 


PAGE 


•^A 



raf! r*Af NTKNAHCE rTA'5N05;Trr ppor^PAn 



PAPT NO. 
PAT.V 






fpfS 



DIAGNOSTIC CONTPOL PPOGPAH 



F9P ICC OB.tiCT CODE 



ADD" STHT SOURCE STATEBl'NT 











CO 00 


59 3 


nrt 


EQW 


00 












00 01 


594 


nzN 


EOO 


01 












0002 


595 


ns? 


Eon 


02 












0003 


596 


HNN 


EOO 


03 




032D 


00 






032D 


597 


CTP 


DC 


XL1 'O' 




032E 


FFFF 




032F 


598 


HEGI 


DC 


XL2'FFFF' 




0330 


00 






0330 


599 




3C 


XLVOO" 


SPAPF RYTE NOT nSED,«insT «E 


0331 


0002 




3 32 


600 


TWO 


DC 


IL2'2« 


LOCATED HERE TO GENERA-^E 












601 


♦ 






THE CONSTANT FIVE 


0333 


3tt 


08 


0359 




6 0J 


CSPK 


ST 


CBPKXa, ARR 




0317 


CO 


87 


0397 




603 




B 


SAVRE?; 


SAVE REGISTERS 


033B 


35 


02 


03FE 




604 




L 


ARRSAV,yR2 


PICK OP RETURN T< 


033F 


C2 


01 


032D 


032D 


605 
6C6 




LA 
OSING 


CTR,XR1 

CT'J.XRI 


LOAD BASE <ti 


03U3 


5E 


01 


CI B2 




607 




ALC 


ARPSAV(2,XF1) ,FIVK(,XR1) 


AJUST RE'flPN 9 


03tt7 


6C 


00 


00 00 




608 




five 


CTRCl.X^I) ,00 (,XR2) 


BOVE LENGTH BYTE 


03UB 


6C 


01 


(tc ou 




609 




BVC 


DEST1 (~,XR1) ,4(,XR2) 


BOVE TO ? 


034F 


6C 


01 


9A on 




610 




BVC 


!)E';T2(2,XR1) ,4(,XR2) 


BOVE TO * 


03S3 


B5 


02 


02 




611 




L 


2{,XR2) ,XR2 


PICK UP FROB 9 


0356 


CO 


87 


0000 




612 




H 


♦ -♦ 












0359 


613 


CHPKXa 


EQU 


♦ -1 












3 59 


614 
615 


TEHP 


EOU 


*-1 














616 


♦*♦♦♦♦*♦** 




*****««*** 












617 


* UNPACK *♦♦♦♦ ,.4i«*«*«#4i**«****««*4i*««***4i*«*«*4t4i««***«**«««** UNPACK * 












618 


«*«4i«««*«4t 




«**«>«****« 












619 








* 












6:^0 


* SUBROnTISE TO CONVERT PACKED HFXADFCISAL DATA TO PRIST ABLE ♦ 












621 


* EBCDIC. 


TWO PRINT CHARACTERS, 0- 


-F, REStlL*^ FPOB EACH SOURCE BTTF. * 












622 


♦ LINKAGE ' 


TO THIS 30BROOTINE IS AS 


FOLLOBS — * 












623 








* 












624 




B 


UNPACK WHERE TISPACK IS EOUATED "^0 X'21E« ♦ 












625 




DC 


TLI'LESGTH OF HEX FIELD 


IN BYTES* * 












626 




DC 


AL2(F'>0B ADDRESS -RTGHTHOST BYTE-) * 












627 




DC 


AL2C0 ADDRESS -RTGHTHOST BYTE-) * 












628 








* 












629 


#**♦***«* 4< 4>** ♦*«*«*« ***********«***«****4i«*****«4i**«**4i «****» *«*****«** 


035A 


3a 


08 


03FF 




630 


PUNPK 


ST 


APPSAV, ABR 




035E 


CO 


87 


0333 




631 




B 


CBPK 




0362 


IC 


03 


39 




632 


HNPKI 


nvi 


HVX1 (,TR1) ,f5N 


DO NUBEPIC 


0365 


6? 


00 


UA 00 




fi33 


UNPK2 


HVX 


TEBP1 (0,XR1) ,0(,XR2) 












0366 


634 


HVX1 


EQn 


*-3 




0369 


7A 


PO 


UA 




635 




SBN 


TEBP1(,XR1) ,X'F0' 


SET FOP 0-9 


036C 


7D 


FA 


4A 




636 




CLT 


TEBP1 (,SR1) ,X'FA' 


CHECK FOR A-" 


036F 


F2 


82 


04 




6 37 




JL 


UNPKI 




172 


5F 


00 


4A 53 




633 




SLC 


TEffPI (1,Xol) ,X39(,T'»1) 


SUBSTRACT T'39' IF A-F 


oa-Jfi 


3C 


00 


0000 




639 


nNPK3 


BVI 


*-*,0 












0377 


640 


TEfiPI 


EOD 


*-3 












0379 


641 


DEST1 


EQO 


*-- 




037>\ 


5E 


01 


4C 2 




642 




ALC 


DEST1 (2,XR1) ,NEG1 (,XR11 


OECEBENT TO ADDRESS 


03' t; 


7D 


02 


39 




641 




CLT 


1VX1 (,XR1) ,BN7 


CHECK FOR 20NE DONE 










0380 


644 


739 


EQO 


*-1 




0381 


F2 


81 


06 




665 




JE 


UNPK4 




0384 


7C 


02 


39 




646 




HVT 


nVX1(,XR1) ,BSZ 


DO ZONE 


0387 


DO 


87 


38 




647 




B 


nNPK2(,XR1) 




038A 


76 


02 


02 




648 


0NPK4 


A 


NEGI {,XR1) .XR2 


DECREBENT FROB 9 


03 8D 


5E 


00 


00 01 




649 




ALC 


CTR(1,XR1« ,i'EG1-1 (,TR1) 


DEC?''" ENT LENGTH r, CHECr FOR 










390 


650 


ONE 


EOU 


*-1 




0391 


DO 


01 


35 




651 




BN? 


UNPKI (,XR1) 


NO 


0394 


DO 


87 


B6 




652 
653 


4t 


B 


LDREG(,XR1) 


?ES 


0397 


3« 


08 


03AA 




654 


SAVREG 


ST 


SR1*3,ARR 


SAVE RE'^URN rh 


039B 


3tt 


01 


03E6 




655 




ST 


LDREG+3,XR1 


SAVE XR1 


039? 


30 


02 


03EA 




656 




ST 


SR2*-3,XR2 


XR2 


03A3 


CO 


87 


0U2A 




657 




B 


"TEST 


CHECK DATA SWITCHES 


03A7 


CO 


87 


OOCO 




658 
659 
659 


SRI 


B 


*-♦ 




DATE 


2IIOCT69 


14»OV69 


20JAM70 


0-9FEB70 09BAB70 01OCT70 


01APR71 PROG ID OPFF-5 


EC HO. 


816529 1 


316555 


816576 


816640 


816638 S16760 


B18949 PAGE 6 



inn HATNTRMANCE DIAGNOSTIC PPOOPAI 






2Sfl<>901 



FFFS 



DIAGNOSTIC CONTROL PROGPAH 



FPP LOC OBJECT CODE 



RDDP STNT SOO'^CR ST^TEKEST 



03AB 3a 08 03EE 
03AF CO 87 0333 
03B3 7C 03 98 
03B6 6C 00 2C 00 
03BA 7D PO 2C 
03BD F2 02 OU 
03C0 5E 00 2C DA 
03CU 18 00 0000 2C 



03C9 76 02 02 

03CC 7D 01 98 

03CF F2 81 06 

)3;'»2 7C 01 98 

03D5 DO 87 89 

03D8 5E 01 gft 02 

03DC 5F 00 00 05 

03E0 DO 8U 86 

03E3 C2 01 0000 

03E7 C2 02 0000 

03EB CO 87 0000 





660 


******** 




661 


* PACK 


♦ ♦♦ . 




662 


******** 




663 








66U 


♦ SUBPOUT 




665 


* DATA. 




666 








667 




B 




668 




DC 




669 




DC 




670 




DC 




671 


*♦*♦*♦*♦♦** 




672 


PPACK 


ST 




673 




B 




671* 


PK1 


•1VT 




6 75 


PK2 


HVC 




6 76 




CLI 




677 




JNL 




678 




ALC 




679 


PK3 


HVIT 


03CS 


690 


MVX2 


EQ!] 


3C7 


681 


de.;t2 


EOTJ 




682 




A 




683 




CLI 




681* 




JE 




685 




nvT 




686 




B 




687 


?K1» 


AiC 




683 




SLC 


03 DF 


689 


FTV1=: 


EQO 




690 




BP 




691 


LDREG 


LA 




692 


SP2 


LA 




693 




3 


03EE 


69U 


APPSAV 


Eon 



****^**^ 
***************************************************** v^.rx * 

******** 

* 

INK TO CONVEPT FPCDTC DIGITS 0-F TO PACKED HEX ADECTI AL * 

LINKAGE TO THIS SMnPOOTTVE IS AS ''OLLOWS — * 

* 

PACK * 

XLI'LENTH* * 

AL2(FP01 ADDPBSS -PIGHT-IOST PV^E-) * 

AL2(T0 ADDi^ESS -PTGHTHOST '^YTE-) * 

**♦*♦**♦**♦*♦♦♦*♦*♦♦****♦♦♦****♦***♦*♦♦•♦♦**♦♦♦**♦♦***♦*♦*»» 
APPSAV, APP 



CflPK 

HVX2{,TP1) ,1NN 

TE«P(,XP1) ,0( 1,X'12> 

TE«P{,XP1) ,X' FO' 

PK3 

TEW" (1,XP1), SINE (,XP1> 

*-*(0) ,TE?!P(,XP1) 

♦ -a 

*-2 

NEG1 (,rP1) ,i(P2 

?1VX2(,XP1) ,BZN 

PK4 

1VX2 (,XP1) ,HZN 

PK2(,XP1) 

r>EST2(2,XP1) ,fJEGl(,XPn 

CT" (1,XR1) ,TH0{,XP1) 

*-1 

PK1 (,XR1) 

*-*,XP1 

♦-♦,XP2 

*-* 

*-1 



DO N'TIF^IC 
"ACK BYTE TN^O HIGH "ALF pv^p 
CHECK FO" 0-9 
J0»1P IE 0-<1 
AJIIST FO" A-F 
HOVE HALF BYTE TO ? 



DECREf^ENT FPOfl ^ 
CHECK FOP 70NE DONE 
J'THP IF DONE 
DO 70NE 

DECPGflENT TO ?( 
CHECK FOP END 

IF NOT DO NEXT BY'^E 
PESTOSE XP1 

5ETTIPS TO SECTION 



HATE 


210CT69 


U»H0769 


20JAN70 


9F!:B70 


09BAR70 


010CT70 


01APP71 


PPOG ID 


OFFP-5 


EC WO. 


816529 


816555 


816576 


816'i40 


816638 


816760 


8189*8 


PAGE 


6A 



IBH •IMNTFNUNC*' DIAGNOSTIC PSOf^RAH 



PA'JT NO. 



7 



fFFS 



DIATNOSTIC CONTPOL PPOGPAN 



EPS toe OBJECT CODE 



ADDS STMT SOHPCK STATEMENT 



03EF 80 

03F0 «02010080'«02 

03F6 01 

03F7 0000 



03F9 3« 01 0U25 

03PD C2 01 03FF 

OU01 7i« 08 3A 

0«0U 58 03 IF 09 

OttOa 7B F8 IF 

OUOB 5C 00 2D 00 

OUOF 5E 01 09 C9 

01*13 58 02 2E 09 

0417 C2 01 0208 

Ol*1B 7A 00 00 

0«1E 33 01 OtlB 

0U22 C2 01 0000 

0tt26 CO 87 0000 



0U2A 


34 


02 


044E 


042E 


C2 


02 


03F7 


0i»32 


B4 


01 


53 


0U35 


84 


08 


53 


0438 


F2 


87 


OC 


043'' 


BD 


ED 


00 


043S 


F2 


84 


13 


0441 


B8 


DO 


00 


0444 


F2 


10 


OD 


0447 


C2 


01 


0000 


044B 


C2 


02 


0000 


044F 


CO 


87 


0000 


0453 


40 






0454 


BC 


00 


86 


0457 


EC 


3C 


77 


045A 


r2 


87 


OF 


045D 


BD 


3E 


77 


0460 


r2 


81 


06 


0463 


BC 


3E 


77 


0U66 


F2 


87 


03 



03EF 
03 EF 
03 F5 
3F6 
03F8 
03EF 
03FA 
03F8 
03F9 



0407 



041B 



0429 
0001 
03 F7 



0446 



0453 



0463 



0469 BC 6B 77 
046C FO 3B 00 



696 
697 
69a 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
729 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 



♦♦*♦♦♦♦* 

* TEST ♦♦•♦* 

SnBRODTI 
POSTTTON 

ENCOHNTE 
CHANGED 



m***************t*********************************** TEST * 



FOXX 
F1XX 
F2XX 

EEXX 
DXXO 
DXXX 



* 

* 
* 
* 
* 
* 

* 

TPSSE EQ'J 

SFTO DC 

DC 

DC 

DATSHS DC 

OSING 

TONE ?.Qn 

XPEF5 EQO 

XFEF4 EQH 

SETSSH ST 

LA 

ST 

SNN 

Eon 

SBF 

nvc 

ALC 

HS7 

LA 
BODTFY EQO 
CHKSS2 SP^• 

SBF 
7XR1 LA 

B 
SETSXa EOT) 

DHCP 

nsiSG 

PTEST ST 
LA 
ST 
ST 

TSTOVL J 

CLT 
JH 
T3N 
JT 

TSTDSK EQO 

TEXTT 



NE tJSED TO PEAD CONSOLE 
S. ONCE ONE OF THE POL 
RED, ENTRIES APE ACCEPT 



SWITCHES AND TEST "OR VALIDITY 
LOWINC VALIDITY CONDITIONS IS 
ED 'fNTIL TH" VALIDITY SWI'^'CH IS 



TURN OFF SSW XT. 
TURN ON SSW XX. 
(;0 TO POnTINE XX. 
•^ERHTNATE SECTION. 
EXECUTE ALL PROGRAMS 
EXECDTE SECTION XXX 



FOP DEVTCE XX -DISK-. 



NTS'' 



CHKSS1 



LA 

TEXIT1 LA 
TESTE 



TFST1 
HLTA 

TEST2 

HITB 

T3 

TEST3 

THLT 



B 
DC 

nvi 
nvi 
J 

CLI 

JE 

HVT 

J 

EOO 

HVI 

HPL 



******** 

XL1«80> 

XL6«402 

XLI'OI* 

XL2'0' 

SETO,XF 

♦ ♦1 

DATSWS 
* 

VXP1+3, 

SETO.XR 

SETSXS( 

CHKSS1+ 

*-1 

CHKSS1+ 

CHKSS2* 

DATSWS ( 

CHKSS2+ 

SBYTEO, 

* 

♦-♦(,XP 

SODTFY, 

*-*,XR1 

*-* 

*-1 
XR1 

DATSWS- 

TEXIT1* 

DATSSS- 

TEXIT+3 

TESTE*3 

TEXIT 

DATSW?- 

TEST1 

DATSB - 

♦-1 

*-*,XR1 
*-*,XP2 

♦ -♦ 
XL1«40» 

Djn?(,x 

THLT+2( 

THLT 

THLT+2( 

TEST3 

THLT+2( 

THIT 

*-1 

THLT* 2 { 

*-*,HH 



*«*««:t[«#*«4>**4i**«4i****4i***:*««*«4<**4i«4i*4r*#4.«4i4c*« 



* 
« 

* 



010080402' 



PEADIN APEA ^0^ DATA SWITCHES 



1 

,XR1) ,APP 

3 (,XR1) , DATSWS (,XR1) FOPr CORRECT PIT PATTEPN 



3 (,XR1) ,T«F3' 
1(1, XR1) ,*-*(, T 
,XP1) ,DATSHS(,X 
2 (,XF1) , DATSWS ( 
XR1 

1),*-* 

X'01' 



TO SET A ^IT ON IN 
PI) SBYTEO THRT SBY''E5 

PI) 
,XR1) 



1,XR2 
3,XR2 

1 . ;:f 2 

(,X''2) ,XR1 
(,XR2) ,ARP 

1 (,XP2) ,X' ED' 

1 (,XP21 ,X' DO' 

FOR CARD 



''2),C 
,XR2) ,HF 

,XR2) ,HP 

,XR2) ,HP 

,XR2) ,R0 



SAV INDEX PEGS AND SET UP BAS" 



LOAD RETURN BRANCH 

( SNS DATSWS(,XR2) ,0 ) READ SWITCH 



SYS ( J*^ ) 

RESTORE INDEX REGS AND EXIT 
SUBROUTINE 

ABNORHAL TERSTNATION 

iALT TO NOTE VALIP SW ENTRY 

AND FORCE 1ST ONF TO HP 
FORCE ALTERNATING PALT CODES OF 
-HP- AND -HU- 



HALT -HP- OR -HO- FOR SWITCH ENTRY 



DATE 
EC HO, 



240CT69 
816529 



14NOV69 

ni6'-.55 



20JA1I70 
816576 



09F5B70 
816640 



09HAR70 
816638 



01OCT70 
816760 



01APR71 
818948 



PPOG ID 
PAGE 



f^FFF-S 

7 



IBB BATNTENAHCE DT»r,NOSTIC PBOORA'l 



Pins 



■7 A 



FPF5 



DI»r,NOSTIC COHTROL PPORPAM 



ERR toe OBJECT CODE 

0H6F BO 00 01 

0<t72 B8 DO 00 

01*75 B9 20 00 

0«78 P2 90 39 

0tt7B F2 87 00 

0tt7E C2 01 01FA 

0082 3C FD 02FE 

0086 5F OB 02 02 

0U8A Bu 01 gc 

OttSD BC 12 86 

0tt90 C2 01 0000 

0U9U BD EE 9C 

0497 F2 01 06 

0i»9A FO 3B 76 

Oi»9D EO 87 5D 

OUAO 6C 02 )2 01 

Oi»A« 79 OF 32 

0UA7 P2 10 03 

04AA 7B 01 00 

QUAD AF 00 9C 71 

0UB1 EO 87 66 

04BU BD EE 00 

04B7 F2 01 C8 

OUBA 8C 01 5B 05SC 

04BF EO 87 66 



ADDP STHT Source statepien" 



04C2 


BD 


F1 


00 


0ttC5 


F2 


81 


09 


0ftC8 


BD 


FO 


00 


04CB 


P2 


01 


15 


OttCE 


BA 


01 


24 


OUDI 


3D 


30 


01 


0404 


F2 


82 


06 


04D7 


FO 


3B 


76 


04DA 


EO 


87 


66 


04DD 


EO 


87 


02 


04E0 


EO 


87 


66 


04E3 


BD 


F2 


00 


04E6 


EO 


01 


50 


04E9 


35 


01 


0A07 


04ED 


1C 


00 


0A03 uO 


C4F2 


ID 


00 


0A03 00 


04F7 


F2 


81 


06 


04FA 


FO 


3B 


57 


04Fi) 


EO 


C7 


66 


0500 


90 


00 


01 00 


0504 


F? 


81 


17 


0507 


7D 


FF 


02 


050A 


F2 


81 


OB 


050D 


2F 


00 


OA03 03 


0512 


73 


01 


03 


C515 


EO 


87 


F3 


0518 


FO 


3B 


76 


05 IB 


EO 


87 


66 


051E 


1C 


03 


0211 03 


052: 


D2 


01 


04 


0526 


B4 


01 


5B 


0529 


34 


01 


0595 


052D 


EO 


87 


66 



0474 



04 7D 



0493 



04AD 



04C2 



04DD 



0002 



764 




SNS 


765 


TSTCD 


EOtl 


766 




TBI 


767 




T3P 


768 




JF 


769 




J 


770 


DJNP 


Hon 


771 




LA 


772 




nvT 


773 




SLC 


774 




ST 


775 




MVT 


776 


TEST5A 


LA 


777 


DAPDB 


Eon 


778 




CLI 


779 




JNE 


780 


HLTC 


HPL 


781 




B 


782 


TEST6 


HVC 


783 




TBF 


784 




JT 


785 




SB? 


786 


TEST6A 


Eon 


787 




SLC 


738 




B 


789 


"rKST7 


CLT 


790 




INS 


791 




nvc 


792 




B 


793 


TEST7A 


EQII 


794 




CLI 


795 




JE 


796 




CLI 


797 




JSH 


798 




SBN 


799 


TFST8 


CLT 


800 




JL 


801 


HLTD 


HPL 


302 




B 


803 


TEST9 


SOU 


804 




B 


805 




3 


806 


TES711 


CIT 


807 




!'SE 


808 




L 


309 




nvc 


(■ 10 


TKST12 


C T 


811 




JE 


812 


TEST 13 


HP^ 


813 




3 


314 


TEST14 


C'.C 


815 




J.: 


816 




CLI 


817 




JE 


818 




ALC 


819 




L 


320 




B 


821 


TESTIS 


HPL 


822 




B 


823 


TEST 16 


HVC 


824 




LA 


925 




ST 


826 




.iT 


827 




B 


828 




DPOP 



DATSWS (,TR21 ,y" 0" 

* + 2 

DATSHS-1 (,X''2) ,X'D0' 

DATSWS-1 (,XR2) ,X«20' 

THST7 


♦ -1 

FL»G-3,Xi»1 
PTB,FO 

02 (12,XR1) ,02 (,X»1) 
DADDP(, XS2) .XP1 
DJ«!P(,XP2) ,TFST5A-DJH 
♦-*,TP1 

♦ -1 

DADDP {,X''2) ,FU-3 

TEST6 

H2,HH 

TPST1 (,TR2) 

2 (3,XP1) ,DATSWS (,yp2) 

2 (,XB1) ,X'OF' 

TF,ST6A 

(,XP1) ,X«01 ' 

* 

DADDP(1,XP2) ,T3(,XP2) 

TEST2 (,XP2) 

DATSWS-1 (,XP2) ,X' EE' 

TEST7A 

TESTE* 3 (2,XP2) , ITF7 

TEST2(,Xi>2> 

* 

DATSWS-1 {,X°2) ,X'F1 ' 

TESTS 

DATSWS-1 (,Xi»2) ,X«FO» 

TEST11 

flODTFY ;,X''2) ,X«01 • 

DATSWS (,X?:, ,X« 50* 

TEST9 

H2,HH 

TFST2 (,X''2) 

* 

SETSSW(,XP?) 
TEST2(,XP?) 
DATSW:^-1 (,XP2) ,X' F2' 
TEXIT(,XP2) 

FP?V,X!»1 

PNn« (1) ,0 (,xpi) 

PS01(1) ,0 (,X'1) 

TEST14 

H "5 . HH 

TEST2(, X"25 

DATSWSfl, XP2) ,0 (,XP1) 

TE3T16 

2 (,XP1> ,X'FF' 
TES'^15 

PSnK(1) ,T0N?(,XP2) 

3 (,XP1) ,XP1 
TEST12 (,XP2) 
H2,HH 

TEST2(,XP2) 
RPFX(U) ,3(,X?-) 
4(.XP1) ,XP1 
TESTE*3 (,X'>2) .X^f 
LNK6+3,XP1 
TEST2 {,Xo2) 

XR2 



"FAD DATA SWI-^CHES 
FOP CAPD SYS ( J TEST7 ) 



P-1 

LOAD DISK LOAD •^ARL" POTS'Tv-j 

CON-^INO" TF TABLE NO"^ TILL 

♦ FPP-10PF THAN U ENT''TES 
r;n ALLOW RF-EVTPY 
HOVE DATA TO DISK LOAD "^ABLF 
CHECK FO" DXX ) 

TTJPN BTT7 OF" 

DECT. DISK LOAD TABLE "liTN'^''" 
no ALLOW NEXT EST'Y 



';0 ALLOW NEXT EJJ'^PY 



CHANGE TO SET BITS T"? 
HAK? SURE SSW VDH TS 00-2'' 

*FHP0?-J;TW # HIGHER THAN X-' 
GO ALLOW NEXT EN-^PY 



GO ALLOW NEifT EN'TPY 



STAPT CHFCKIMG 
LOAD CtlRPEN-" P' 
IS THIS PTN P" 

YES - BRANCH 
*PTN NOHBEP OUT 
GO ALLOW EN-^PY 
PPANCH TF THIS 

POTJTTN" 
CHECK FOP LAST 

TES, BRANCH T 
INCPEHENT ROOT 
LOAP ADDRESS 
GO CHECK THIS 
♦INVALID PTN SE 
GO ALLOW ANOTH 
SAVE POHTTNE o 
LOAD ADDRESS 

IN SnB^'OTJTISE 
SET HP LINK EX 
GO ALLOW NEXT 



WITH ''I? ST ^T!" 


■TV- 


"N Sn*^ WT'''H ''T'ST -N 


E^IX COpn^'C'^ 




OF SEOnENCE 




AGAIN 




TS SFLEC^SD 




POJITTNE INDTCil'^IO*: 


E^PTP HAL"^ 




INE NTK35P 




F NE^T P*^*? PP^F" 


r 


R-^N NTII 




LECT O^^TON 




ER "N-^PY 




PEFTT 




F FT^ST TN'^TRHC: 


'■'.■'N 


; EXT"^ 




I-^ IN CASE LOOP' 


■%'f: 


ENT'* Y 





DATE 


240CT60 


1UJI0T69 


20JAH70 


09FeB70 


09BAR70 


010CT70 


01APB71 


POOG TD 


0F~F-5 


EC HO. 


816'^r'V 


916555 


816576 


816640 


816638 


816760 


818948 


PAGE 


7A 



IBB HATilTEHAHCE PIATNOSTIC PPOGSAH 



VA^r SO. 
PA OR 



fl 



FFFS DIAGSOSTIC CONTROL PPOGRAH 

ERR LOC OBJECT CODE ADDR STMT SOHRCF STATEMENT 



0530 3U 01 05S1 

0S3tt CO 87 n(j2A 

0538 38 aO 0208 

053C F2 90 oB 

r53F 3D 01 0A03 

05«»3 CO 81 030T 

05U7 F2 87 UH 

05UA 3D FF 0210 

05aE F2 01 OD 

0551 38 80 0208 

0555 CO 10 0000 

0559 CO 87 0262 

055D 00 

055E 35 01 0211 

0562 OE 00 0A03 0390 

0568 ID 00 OA03 00 

056D F2 81 07 

0570 FO 3B 57 

0573 CO 87 0534 



0577 1C 03 0211 03 

057C 38 20 0208 

0580 78 80 01 

0583 CO 10 05ttA 

0587 D2 01 04 

058A 3« 01 0595 

O'iBE C2 01 00"'^ 

0592 CO 87 0000 



05 37 



055C 
055D 



830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
355 
856 
357 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 



* LINK ********************************************************* LINK * 
******** ******** 

* * 

* snBPOOTTNE TO PPOVTDE POHTINE TO ROUTINE AND SECTION TO SECTTON * 

* LTNKAOE. TH?: CONTnot PHOGRAB OSES THE "OUTTNE PPEFTX AS AN * 

* INTERFACE BETWEEN DIAGNOSTIC SECTION AND CONTKOL PR0GRA1. * 

* * 
*********************************************************************** 



RLINK ST 



INKI 
TTP1 



LNK1A 
LHK2 

ITP7 
INK! 

RLTE 

* 

LNK4 



LNK5 
I.NK6 



B 

EQtJ 

TBN 

JF 

CLI 

BE 

J 

CLT 
JNE 

"IN 
Bf 
B 

EQU 
DC 

1. 

AlC 

CIC 

JE 

HPL 

B 



nvc 

TBN 
TBN 
BT 

LA 
ST 
LA 
B 



LNK5+3,XB1 

RTFST 

*-1 

SBYTE0,SSW0 i 

LNK2 

RNnM,T«01' 



LNK5 

PPFX-1,X'FF' 
LNK3 

SByEO.SSWOO 



RLOAD 

*-1 

XLI'O' 

PPFX.X"! 

RNUSfl) ,0NE 

RNnn(1) ,0 (,XR1) 

LNK4 

H3,HH 

LNKI 



FPFX(4) jlf.X'l) 

SByTE0,SS;»02 
1 {,X?1) .BITO 
LNK2 

4 (,XR1) ,XF1 

LNK6+3,XR1 

♦-*,XR1 



SAVE TRI 

GO CHECK DATA SWITCHES 

PROVIDE LOOP ON ROUTINE TF SSWOI ON 

IF FIRST RTN BEING RUN, GO '^O 
PROGRAM RESTART 



IS THIS LAST POCINE 
NO, GO ON TO CHECK FnRTHE" 



TEST FOR LOOP ON SECTION 
YES, GO RESTART PPOGRRM 
NO, GO LOAD NEXT SECTION 



SET UP TO GO TO NEXT ROUTINE 
INCPEBENT ROUTINE NUMBEP AND 
CHECK AGAINST RTN PPEF.'^ 

*PTN NUn IN RTN PBEFIX O'TT O":" OPDEP 
GO CHECK FOP DATA SWITCH VEPIFTCA- 
TTON 

SET UP CURRENT "OOTTNE PREFIX 
CHECK FOP BYPASS MANnAL TNTHPV RTSS 
CHK RTN PREFIX HANUAL TNTEPV FLAG 
SKIP ROUTINE IF BOTH CO'IDTTIONS TRUE 



LOAD ROUTINE STARTING ADDR 
RESTORE INDEX REGS 
EXIT SOBROHTTNE 



PATE 


2a0CT69 


14N0T69 


20JA1I70 


09FEB70 


09HA';70 


01OCT70 


01APP71 


poor. ID 


OFFF-5 


EC SO. 


816529 


816555 


816576 


816640 


816638 


816760 


818940 


PAGE 


8 



TBB HATNTSHANCE DIAGNOSTIC PPOGBAH 






2S«9901 



FFF5 DIAGNOSTIC CONTROL PROGRAH 



ERR toe OBJECT CODE 



ADDR STHT SOORCE STATHn?!NT 









879 


4i*4r*4i*4i** 


******* *« 








879 


* PRIN 


T ^*^^ ** it. ****************»*: *^ti^ ***zf til* ^*i:**t ************* porter 


* 








BflO 


*4<*4<«4<«*« 


******* ** 








981 


« 


LINKAGE TO PPTNT TS AS FOLLOWS-- 










882 


* 














883 


♦ 


T» 


PRINT WHERE PRINT I?! EQUATED TO 1304 










88(» 


« 


DC 


XL1' FLAGS' 










885 


♦ 1 


*DC 


ILI'LFNGTH -MAXTian OF 91-« 










886 


• 1 


♦DC 


AL2(ADDR7SS OF LAST CHARACTER OF PRIN" FIELD) 










887 


♦- 2,1 


♦DC 


XL2'HESSAGE IDENTIFICATION" 










888 


* 




FLAGS 










889 


* 




BIT - DIFINES THIS AS AN RBROF P'^TNTO'T'^ 










890 


* 




1 - FIRST LINE OF HFSSUGE -H'=-ADTSG PRTN-^SD- 










891 


* 




2 - PRINT FR01 DCP PRINT A?F)\. 










892 


* 




3 - SPACE ONLY 










893 


* 




4 - RESERVED 










894 


* 




5 - 1TTS S-7 mST COS".MN TH'^: N'I?!BER OF 










895 


« 




6 - SPACES DESIRED. FOR A otjts"^, -001- 










896 


« 




7 - HUST 3E '■;NTERED TO PRINT AND SPACE "0 










897 


« 




THE NEXT LINE. -000- MAY BE ENT-EOED 










893 


* 




TO PROVIDE FOR HULTIPLE OPERATIONS ON 










899 


« 




THE SAME LINE. 










900 


« 














901 


« 




1*N0TE - THESE PARAMETERS MUST 3E ABSENT '^1" '^'^ACK 










902 


• 




ONLY OPERATIONS. 










903 


* 














904 


* 




2 + NOTE - THE HESSAGE IDENTIFICATION TS TNCL'IDED 










905 


« 




ONLY FOR A FIRST LINE PRINTO'JT. THE FH'T? 










906 


• 
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TBH 
3T 
TIO 
BVC 
B 
DPOP 

OBG 
LPIBAG EOa 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



H5,HH 

PBTHI (, 

PRSIO+1 

PHTEXT{ 

nSTAT(, 

nSTAT-1 

DOIT 

MHLT2 r, 

X'0',T' 

BSYLPO t 

BnLT2(, 

PR1 {,TB 

T'AU«,T 

rSTAT(, 

HSTAT-1 

BSTLPI ( 

?1HLT2(, 

LPDATA* 

PRTFrr( 

2 



EXIT SOBROnriN" 

*«FCTJ NOT WEADY OP E«?BOP 

GO EXIT Ty THIS WAS S^AC? OPEPA'^'IO"! 

PEAP BFCn STATns 

IF SO CARD IN SEC HATT STATION, 
TSSriE FE'^D COBBAND 



XB2) 

(,XR2) ,X' FO' 

,XR2) 

XB2) ,X'F3' 

(,XP2) ,X«10» 

XP2) ,X'F3' 

F8' 

,XB2) jX'Pl' 

XP2) ,X'F8» 

2) ,X'FU' 

•FC 

TB2) ,X»F3' 

(,X''2l ,X'«0' 

,XP2) 

XR2),X'F8' GC MALT TT ANY FPROPS 

131 (1 32) ,LPDATA*132 3LASK PRIM" PIIF 

,XR2) RESTORE •;P2 



GO HALT IF BFCn NOT PFADY 
LOAD BPCtJ PRIN'^ AnDR PEG 
PRINT ON BFCTJ CARD 

WATT FOB Bnsr "0 noop 



X»800' 

* 

XL6'F1F2F3FUF5F6' 

XL6«F7F8F9Ff'7o;~' 

Xl6»6152E3EttE5F6' 

XLfi*E7E9E9506B6C' 

XL6»D1D2D3DUD5D6' 

XT.6 •D7D'iD9605B5C' 

XL6'C1C2C3CttC5C6' 

XL6»C7C'iC9aFttR7n« 






THE FO 

HANDLI 

THE DI 

ORG 



X880 



EQO 
ORG 
OST 
PC 

ENDFTS BVC 
BVC 
TBN 
JT 
LA 

nFINDI LA 

nFIND2 CLC 
JHE 
BVC 
MNN 
SBN 

0FTND3 TBN 
LA 
BF 
J 

HFINDU TBN 
LA 
3F 
TBF 
JT 
HPL 
B 
B 

DC 
DC 



LDEND 



LLOWING INSTPOCT 
KG END CARDS. I 
SK LOADEB. 



*+X'880' 

X'900» 
NG X380,XR1 

CL1» ' 

LB^(2,XR1) ,LB 

20(21) ,PBSTRT 

SPFLGS,BTT0 

LDEND 

SP0DT,XR2 

nT>B,XR1 

0(1, XP1) ,0(,X 

2(1, XR2) ,2(,X 

1 (,XR2) ,1(,XR 

1 (,XF2) ,BIT? 

1 (,XP2) ,3IT3 

3(,XB2) ,TR2 

DFTND1 

LDEND 

1 (,XB1) ,3IT3 

3 (,XP';) ,XB1 

0FTND2 

1 (,XR2) ,BIT1 

**6 

H1,HH 

UPIND3 

PRINT 

XL1'U7« 

ILT 1U« 



IONS COBPLET'=: THE SEC'TON LOADF" ?r 
T IS IN AH AOEA THAT IS "FAS IN^^O ■'Y 



SGS 

♦ 2(,X'>1) 



"2) 



PPOGRAB OESTART 
BPANCH IF NO DDT EHTOI'S 

POINT XR2 AT SECTION PREFACE ODT 
POINT XB1 AT DCP DSIT TABLE 
BRANCH IF NOT PROPER tJDT 



PI) LOAD SECTION PREPAC*; OPTION 

1) 

SET ASSIGNED FLAG 

TNCPEBENT SP'JT POINTER 
IF NOT LAST ENTRY, f,0 LOAD NEXT 
OTHERHTSF - GO START SECTION 
CHECK FOP LAST DCP ENTRY 
INCPEBENT TO .<EXT ENTRY 
CONTINHE TF NOT LAST EN'^PY 
SKIP BPPOR HALT IF "EOOIRED FLAG 
NOT ON 

*ODT CANNOT 3E SATISFIED 
BYPASS ERROR IF HALT RESET 

PRINT DCP HEADING AND SKIP ITP 



DATE 
EC NO. 



2HOCT69 
816529 



iaN0V69 
816555 



20JAN70 
816576 



09PEB70 
8166U0 



09nAB70 
816638 



010CT70 
816760 



01AP'>71 
8189U8 



PROG ID 
PAGE 



OFFF-5 
10 



IBH HAIIITEIIXWCE DIJlGSnSTTC PSORPAB 



PH'T SO. 



2'^8QP01 



FFFS 



DIHGNOSTTC COHTROL PPOGPUM 



BPP LOC OBJECT CODE 



»DDR STHT SOnRCE STATENPNT 



0956 


05B5 




0957 


11UU 


Lfla 


DC 


AL2{L?<SG) 




09S8 


FFOO 




0959 


iia5 




DC 


TL2'FF00« 














iiae 










09SH 


39 


01 


0208 




11«J7 




TBf 


S3YTEO,SSW07 3YPASS HALT AFTEP LOAD-^VG ^EC^TON 




095E 


39 


0" 


01FD 




lias 




T3F 


FLAG,QTTt* 




0962 


F2 


90 


03 




11(*9 




JF 


*t06 




0965 


FO 


3B 


3F 




1150 
1151 


** 


HPL 


HA,HH HALT TO ALLOW DATA SWITCH ^V"PY 














1152 


•» 


THE FOLLOWING FIVE INSTPtlCTTOSS A5F STO"D A^ LOCA^ton 7!??o 














1153 


•* 


(0000) A'H'ER LOADTSn OF EACH SECTTON IS COMPLETED '0 P?nVTDE 














115U 


*• 


A PPOGPAS PESTAPT (SYSTEM "ESET/ST APT) . 




0968 


35 


03 


0A07 




11-55 




L 


FRTN,X«03' SAVE ''IPST POITINh PPEFTT « "TD 




096C 


1C 


00 


0A03 00 




1156 




nvc 


PNTJ.iCI) ,0 (,XP 1) LOAD CUn^EST POrJTTNE NIJ^'E" 




0971 


1C 


03 


0211 03 




1157 




HVC 


RPFX(tt) , M,X°1) 




0976 


CO 


87 


0212 




1158 




B 


TEST CHSC? DATA SWITCHES 




097A 


DO 


87 


OH 




1159 


PFS' 


TFT 3 


(•(.TOI) STA^T FTPS'l ^OTJ-^tijf 




0970 


ooooro 


097F 


1160 




DC 


TL3'0> 














1161 




*************HALT SnST STAPT AT x ' 980 • ♦****♦♦*****•*♦* 


« 












1162 


******** 


******** 












1163 


* R 


ALT ♦*•*♦*♦♦♦•♦*♦♦«****♦♦•*♦•*****»**»*******♦*♦♦*♦**♦*♦♦*•♦* mT' 


* 












116U 


****«**« 


******** 












1165 




















1166 




SD3P0OTINE OSED TO PPOVIDE A CO'JMOS HALT FtJNCTION. FN-^^Y TO THT<: 














1167 
-163 
1169 




POaTTNE 


IS ACCOHPLTSHED BY BPAS'CHISG — 
















B 


HALT WHEPE HALT IS EOOATED T'^ 1^2 












1170 




EC 


XL2'TjnXX' «EX EOPOP TDEV^IFIE^ 














1171 




















1172 




NOPHALLY, 


, ONLY A HALT WITH CODE 'XT' WILL OCCn". BtJ"^ WHE'T "HE 














1173 




SYSTE"! TEST IS P'ISSING, HALT 'Un' SILL PPECFDE HALT 'XT' ^" 














117tt 




IDENTIFY 


THE DEVICE IS EPPOP. 














1175 




















1176 






m - TTSTT IDESTI^ICATTON 














1177 






XX - INDEX S'llPFP 














1178 




















1179 




IF THE INDEX Ki)B3EP IS 01-9F, THE HALT WILL OCCO^ TINLESS SFS'^'' 














1180 




SWITCH 06 IS OS. HAf^S WITH INDICES AO-CF APE PE''Fno«i'Jr ONLY 














1191 




WHES NOS- 


-ESnOP OPTSTOOTS APE BEING 3YPASSED -SSS 0!*-. HAL-'S 


■> 












1182 




DO-FF A3' 


S ALWAYS PEPFOP!lED. 


* 












1181 


*********************************************************************** 










098C 


n8a 




osisa 


HLTTAB, XP2 












0980 


1185 


HLTTAB EQO 


* 




0980 


6F0376571B5D 


0985 


1186 




DC 


XL6«6F0376571P5D' TABLE OF "ALTS 0-P 




09 86 


7D077F5F3F79 


098B 


1187 




DC 


XL6«7D077F5F3F79' 




09 8C 


6C73 7C3C 


098^^ 


1188 




DC 


XLa'6C737C3C« 














1189 










C990 


34 


08 


03FE 




1190 


PHSLT ST 


ASPSAV,APR SAVE SETHPS ADDPESS 




099« 


CO 


87 


0197 




1191 




B 


SAVEG GO SAVE "EGISTE^S 




09 98 


C2 


02 


0980 




1192 




LA 


HLTTAB, XP2 LOAD ^ASP 




099C 


35 


01 


03EE 




1193 




L 


APPSAV,XP1 POINT X^l A"^ PA'fAMFTEP LIST 




09A0 


OE 


01 


03EE 0332 




119H 




ALC 


ARPSAV(2) ,TWO AD.inST PETn^N ADDPESS 




09 Aft 


7D 


AO 


01 




1195 




CLI 


1 (,XP1) ,X'AO» BRANCH T "^ THIS IS Eo^OP HAL? PAT" 




09»9 


F2 


82 


10 




1196 




JL 


H»LT2 




09 AC 


7D 


CP 


01 




1197 




CLI 


1 (,TP1) ,X'CF' DO HALT IF CODE 'DO'-'Fp* 




09AF 


F2 


Rit 


11 




1198 




JH 


HALT1 




09B2 


38 


08 


0208 




1199 




TBS 


S3YTE0,SSW0H EXIT TF NOT 3Ypftc;si«iG NOS--:"? PPTN 


■n 


09B6 


F2 


90 


3B 




1200 




J' 


HEXTT 




09B9 


F2 


87 


07 




1201 




J 


HALT3 




09BC 


38 


02 


0208 




1202 


HAL' 


T2 T3N 


S3YTS0,SSW06 EXI"^ IF ?YPASS E^PO^ HALT S <="- 




09C0 


F2 


10 


31 




1203 
1201* 




JT 


HEXTT 




09C3 


98 


02 


61 00 




1205 


HAIT3 WN7 


LHLT1*3 (,yR2) ,0 {,XP1) SET TTT TO LOAD CODES FO" IS" HAT' 




09C7 


98 


03 


65 CO 




1206 




HMN 


LHLT1 A+3 (,XW2),0 (,XP1) 




09CB 


98 


02 


6C 01 




1207 




PINZ 


LHLT2 + 3 (,XR2) ,1 (,XP1) SET UP FOR SECOND HAL^ 




09CF 


98 


03 


70 01 




1208 




HNS 


LRLT2A*3 C,^'»2),1 (,XP1) 




09D3 


3D 


FP 


OAOO 




1209 




CLI 


T'AOO',X»FF' DO ''TPST HAL'' ONLY TF P'!SSIVG SYST 


El 


0907 


39 


DO 


OA01 




1210 




TBF 


X'AOI'.X'DO' TEST 




09 DB 


F2 


96 


OB 




1211 




JC 


LHLT2,X«96' 




DATE 


2i»ocT69 lasoveg 


20JSH70 


09FRB70 09«>AP70 010CT70 01AP''71 r.^oG IT OFF'' 


-S 


EC HO. 


816529 816555 


816576 


8 166U0 


816638 8;67f 81891*8 PAGE 10A 



TBB HATNTENANCE DTACJHOSTIC PROGSA!! 



PAPT HO. 



2SBq901 
11 



FFFS 



DIAtJNOSTIC CONTROL PPOGRA!! 



»5P LOC 



ADDR STUT SODPCE STATEBEST 



09DE 


AC 


00 


67 00 




1212 


LHLT1 


HVC 


HALTX + 1 (1,X''2) ,»-• {, 


XR2) LOAD FIRST HALT 


09E2 


AC 


00 


68 00 




1213 


LHLT1?' 


BVC 


HALTA + 2(1,XP2) ,»-*(, 


iP2) 


0956 


FO 


00 


00 




1214 


HALTA 


HPL 


♦-♦,♦-* 


HALT TO INDICATE DEVICE 


09E9 


AC 


00 


72 00 




1215 


LHLT2 


BVC 


HALTB + 1 {1,XR2) ,*-*(, 


XP2) LOAD SECOND HALT 


095D 


AC 


00 


73 00 




1216 


I.HLT2A 


BVC 


HALTB + 2(1,XP2> ,*-*(, 


XR2) 


09F1 


FO 


00 


00 




1217 


HALTR 


HPL 


*-♦,♦-* 


HALT TO DISPLAY INDEX NtlSBER 


09Ftt 


CO 


87 


042A 




121B 


HEXIT 


F 


RTEST 


GO CHECK FOR SWITCH ENTRY 


09F8 


CO 


87 


03F3 




1219 




B 


LDREG 


GO RESTORE REGS S EXIT SOBROOTISE 












1220 


****•«**** ***********4>** *****-» 














1221 


* TUANSFE? 


TABLE CONSTANTS ♦*****«*****««*«««******t»»«**«*****«****« 












1222 


**•««*• •**«***4i*4i ****«****««•* 












05 37 


1223 


TR1 


Eon 


TTR1 




0<»FC 


0530 




09 FD 


1224 


TP2 


DC 


AL2{RLI«IK) 












02C4 


1225 


T9 3 


EQU 


IT" 3 












0680 


1226 


Tpa 


Eon 


ITR4 




09FE 


0990 




09 FF 


1227 


TR5 


DC 


AL2 (RHALT) 












0231 


1228 


TR6 


EO'J 


ITP6 












055C 


1229 


TP7 


EQTJ 


IT"/ 














1230 


♦♦*♦♦*♦*♦*♦ 
















1231 


* XFEF 


•♦•••♦♦•♦*******♦♦*♦*»*•♦♦****♦♦♦*♦♦♦**•**♦••*♦♦*♦*♦***♦**♦♦♦ 












1232 


a^*****«**** 






1FF6 










1233 




oRr; 


X«1FF6' 




1FF6 


03F8 




1Fr7 


1234 




DC 


AL2fXPEP5) LOCATION FOR SSW VALHE 


1FF8 


0359 




1FF9 


1235 




DC 


AL2(XBEF4) SOBSTN TO SET SSH 


1FFA 


orc6 




1FFB 


1236 




DC 


AL2(XPEF1) LOADEP BRANCH % WHEN DCP IS LOADED 


1FFC 


108a 




IFFD 


1237 




DC 


AL2{XPEF2) LOADER BRANCH % WHEN LOADING DCP 


1FFE 


02E7 




1FFF 


1238 




DC 


AL2(XPEP1) LOADER "ETORN IF NOT IS VTOC 












1239 










0C97 










1240 




ORG 


HHLT2+X«500" 














1241 


•♦ PRINTEH 


INPDT/OOTPnT POnTINE 


SUPPORTING T"" S203 AS PRIBARY OOTPIJT 












1242 


•* DEVICE AND THE 5471 PBTMTES K 


EYBOARD AS SECONDARY. ONCE LOADED, 












1243 


*♦ DCP SCANS THE ODT TABLE TO SE 


E IF THE 5471 IS ATTACHEP T" IT IS, 












1244 


•♦ DCP REPLACES THE 5424 PORTION 


WITH THE 5471 OVERLAY. 












1245 


** 
















0714 


1246 




U5THC, 


PRrN,XS2 












0C87 


1247 
1248 


PPTNA 


EyO 


♦ 




OC8 7 


FO 


3B 


7D 




1249 




FPL 


H6,HH 


♦KEYBOARD PPINTES ERROR 


0C8A 


EO 


87 


13 




1250 




B 


PSTN1 (,XR2) 




OCBD 


2E 


00 


06C9 08 




1251 


PTCIO 


ALC 


P5T6*1 (1) ,ZONE(,XS2) 


ADJUST LENGTH OF PRIN'' 


0CS2 


33 


80 


06C9 




1252 




SBF 


PRT6*1,X«80' 


LIBIT SfTKRES OF CHARACTERS "^0 127 


OC96 


nc 


81 


AC 




12 53 




BVI 


CT02*2(,X52) ,T'81' 


SET DP TO DO PRINT 


0C99 


BD 


EO 


5F 




1254 




CLI 


PPSTOtI (,XR2) ,X«EO' 


CHANGE TO CARRIAGE RETtJRN IF SPACE 


0C9C 


F2 


01 


18 




1255 




JNE 


CIOl 


ONLY 


0C9F 


BD 


00 


60 




1256 




CLI 


PR5TO*2(,IR2) ,0 


SKIP CARR RETfJPH IF SPACE 


0CA2 


EO 


81 


67 




12 57 




SE 


PRTEXT(,XP2) 




OCA"^ 


3D 


02 


05DU 




1258 




CLI 


NSPACE,2 


LIBIT StIB SPACES TO 2 


0CA9 


F2 


82 


04 




1259 




JL 


♦ ♦7 




OCAC 


3C 


02 


05DU 




1260 




BVI 


MSPACE,2 




OCBO 


3C 


00 


06C9 




1261 




BVI 


PRT6*1,0 




OCBO 


BC 


41 


AC 




1262 




HVT 


CT02*2(,XR2> ,X'41 • 




0CB7 


C2 


01 


0880 




1263 


CT01 


L?. 


X'880«,XR1 


POINT XR1 AT PRINT FIELD 


OCBB 


71 


18 


01 




1264 


CI01B 


LTO 


1 {,XR1) ,X'18' 


LOAD CHARACTER TO SE PRINTED 


OCBE 


F3 


18 


00 




1265 


CI02X 


SIO 


*-*,X'1»3« 


ISSUE COBBAND TO 5471 


0CC1 


BO 


19 


38 




1266 




SN5 


CI0STS(,XR2) ,X' 19' 


HALT IF ERROR 


occa 


B9 


03 


38 




1267 




TBF 


CI0STS(,XR2) ,X«03' 




0CC7 


EO 


90 


73 




12C8 




BF 


CI0hLT(,X''2) 




OCCA 


7C 


UO 


00 




1269 




BVT 


(,XP1) ,C' • 


CLEAR OUT THIS CHAOACTER 


OCCD 


D2 


01 


01 




1270 




LA 


1 (,XR1) ,XR1 


ISCREMENT ORINT FIELD POINTER 


OCDO 


2F 


00 


06C9 08 




1271 




SLC 


PRT6*1(1) ,ZONEf,XP2) 




0CD5 


EO 


02 


A7 




1272 




BNL 


CI01A (,XR2) 


CONTINUE UNTIL WHOLE LINE PRINTED 


0CD8 


EO 


87 


67 




1273 
1274 




B 


PRTEXT(,XR2) 












07 4C 


1275 


CIOSTS 


EOO 


flSTAT 












OCDA 


1276 


LAST 


Eon 


*-1 BOST 


BE LAST STATEBENT OF OVERLAY 










07BB 


1277 


CI01A 


EOtI 


BHLT2 + CI01B-P'»TNA 












0787 


1278 


CIOHLT 


EQtJ 


BHLT2 












07BE 


1279 


CI02 


EQTJ 


nHLT2+CI02X-PRTNA 




DATE 


2UOCT69 1«N0Vf.9 


20JA1I70 ( 


39FEB70 09BAR70 01OCT70 01APP71 PROG ID OFFF-5 


KC HO. 


816529 816555 


816576 1 


816640 


816638 816760 818948 PAGE 11 



TBB MATIITE»Jl!ICE DTAGHOSTTC PPOGPAH 



PFP5 



di»(;nosttc cc •'pol ptogpah 



PHOT so. 



in 



ERR LOC OBJECT CODE 











OCDB 


12 82 


PPTNX 


EO'J 


OCDB 


FO 


78 


3U 




1283 


D0U1X 


HPL 


OCDE 


EO 


87 


13 




128(1 




B 


0CE1 


7D 


40 


00 




1285 


PB41 


CLT 


OCEU 


EO 


01 


67 




1286 




BNE 


0CE7 


El 


FO 


73 




1287 




TTO 


OCEA 


B1 


FO 


3C 




1288 




LIO 


OCED 


F3 


F2 


00 




1289 




STO 


OCPO 


El 


F2 


88 




1290 


BY41X 


TIO 


ocya 


E1 


FO 


73 




1291 




TTO 


CCF6 


OC 


83 


08FF 0900 




1292 




KVC 


OCFC 


EO 


87 


67 




1293 




B 










OCFF 


1294 


NO 


EO'? 










002U 


1295 


LSG41 


TQn 










0787 


1296 


D041 


EQO 










079C 


1297 


BT41 


EQO 










0002 


1298 




DROP 



ADDP STMT SOURCF STATEBEMT 

1280 

PPTNX EO'J ♦ 

X»34»,X«78' 

PRTM1 (,xn2) 

0(,XP1) ,X'40' 

P'?TEXT(,XS2) 

0041 (,XR2) ,X'F0« 

PH2(,XF2) ,X' FO' 

0,X'F2' 

BT41(,XR2) ,X'F2' 

D041(,X'»2) ,X 'F0» 

LPDATA+I 31 (132) ,LPDRTR+132 

PRT?;TT(,XP2) 

♦ 

ND-D041X 

HHLT 2+004 1X-PPTSX 
'?HLT2 + 9Y41X-P??SX 
XP2 



DATE 


240CT69 


14N0V69 


20JAH70 


P9PEB70 


09BAP70 


01OCT70 


0UPP71 


pon TO 


nFFF-5 


BC HO. 


816529 


8165S5 


816576 


816640 


816638 


516760 


818948 


PR1E 


1 1» 



T8B B»t»T»ll»KCE DIUGMOSTIC PPOGBHH 



PAPT NO. 
PAGE 



2S89901 
12 



FFFS 



DIAGNOSTIC COHTROL PHOGPAH 



y.^? LOC OBJECT CODE 



ADDS STST SOnPCE STAT^HEST 



ODia 








1300 
1301 




ORG 










1302 


♦* PPTHT'^S 










1303 














0D14 1304 




nsiHG 


ODia 


C2 


02 


0714 


1305 


PPTN!1 


lA 


01)18 


B'» 


08 


AB 


1306 




ST 


0D1B 


B* 


08 


SB 


1307 




ST 


0D15 


B5 


01 


KB 


1308 




L 


0D21 


ftC 


OO 


01 06C9 


1309 




HTC 


0D26 


8E 


01 


AB 0332 


1310 




ALC 


0D2'? 


CO 


87 


0212 


1311 


PRTN'.S 


B 


0D2F 


38 


80 


05D7 


1312 




TBN 


0D33 


F2 


90 


07 


1313 




JF 


0D36 


39 


10 


0208 


1314 




TBF 


0D3A 


F2 


87 


04 


1315 




J 


0D3D 


39 


08 


0208 


1316 


PRTS2!1 


TBF 


ODUI 


CO 


90 


06E5 


1317 
1318 


PT90B 


BF 


0D4S 


38 


OU 


0208 


1319 




TBS 


0D49 


F2 


10 


4D 


1320 




JT 


ODI»C 


El 


El 


3E 


1321 




TTO 


ODUP 


F2 


87 


OA 


1322 
1323 




J 


0D52 


31 


E2 


0390 


1324 


BOFST 


LIO 


0DS6 


FO 


78 


34 


1325 


CPFaP2 


HPL 


0D59 


EO 


87 


17 


1326 




B 


0D5C 


El 


EU 


65 


1327 


?PNT3n 


TIO 


0D5F 


39 


07 


05D4 


1328 




TBF 


OD63 


F2 


90 


06 


1329 




JF 


0B66 


B1 


EH 


B1 


1330 




LIO 


0D69 


F2 


87 


15 


1331 




J 


0D6C 


3D 


05 


OOOO 


1332 
006" 1333 


PESTOP 

WSTATR 


CLT 
EOO 


0D7O 


F2 


81 


06 


1334 




JE 


0D73 


B1 


E6 


AF 


13 35 




LIO 


0D7fi 


F3 


EO 


00 


1336 




SIO 


0D79 


US 


00 


01 03DF 


1337 


FLISE 


ALC 


0D7E 


B1 


EH 


AD 


1338 




LTO 


0381 


B1 


E6 


58 


1339 




LTO 


0D8U 


B1 


E2 


75 


1340 




LIO 


0D87 


F3 


EO 


00 


1341 


PPSIOH 


STO 


0D8A 


El 


E2 


76 


1342 


PSTLPf! 


TIO 


ODRD 


El 


EO 


42 


1343 




TTO 


0D90 


F2 


87 


13 


1344 
1345 




J 


0D9 3 


FO 


78 


34 


1346 


DOCE'?S 


HPL 


0D96 


EO 


87 


17 


1347 




B 


0D99 


7D 


40 


00 


1348 


PPTD5C 


CLI 


0D9C 


F2 


01 


OP 


1349 




JNS 


0D9P 


El 


FO 


7F 


1350 




TIO 


0DA2 


B1 


FO 


AD 


1351 




LTO 


0DA5 


F3 


F2 


00 


1352 




STO 


0DI8 


El 


F2 


94 


1353 


BSTDOC 


TIO 


ODAB 


El 


FO 


7f 


1354 




TTO 


ODAE 


OC 


83 


08FF 0900 


1355 


PPTFIS 


nvc 


ODBU 


C2 


02 


053 7 


1356 




LA 


0DB8 


35 


01 


0713 


1357 




L 


OPBC 


CO 


87 


0000 


1358 


PPTHEH 


B 



PHTH*T«600« 



PPTHS, 2 

PRT!»,XR2 

PRTNEH*3(,TP2) ,ARP 

HSTATF! (,XP2) ,ARP 

PPTMEH+3 (,IR2) ,TR1 

1 (I.IRI) ,PRT5 + 1 

PPT!IEn + 3(2,XR2) ,TWO 

TEST 

PTAGS.BITO 

PRTU2?! 

S3YTE0,S<:W03 

PT90!! 

5BTTE0,SSW04 

PSFTTT 

SBTTE0,SSW05 

PPTDPC 

EOFST(, X?2) ,X'E1« 

PR1»T3B 



01IE,X'F2' 

X'3a>,X'78' 

PRTN1H (,XP2) 

FLI!IE(,XR2) ,r'E4« 

«ISPACE,X«07' 

PESTOP 

PS3H(,TP2) ,T«E4« 

FLIKS+8 

*-*,X»05' CHECK FO" S^ACE 

♦ -1 

PLISE 

ASPFBH (,XP2) ,X« E6« 

X»0 '.X'SO' 

1 (1,XP1> .FIVE 

PR2«(,TR2) ,X'E4» 

MSTATH (,XR2) ,X'E6' 

PSST0n+2(,XP2) ,X'E2' 

♦-*,X'EO' 

8STLPH (,XP2) .CPBOS' 

CPSRP2(,XR2) ,CPVEP» 

PRTEXH 



ADJUST »ETOP?I ATIDPESS 
CHECK DATA SBTTCHES 
GO EXIT TF SSH TO "YPASS *! 
OF PPTNTOHT IS TH^'NED OS 



TEST FOP ALTERNATE TITPtl"" 



♦ 
HIS TYPE* 

* 

* 
« 

* 



TEST FOR SPACE ONLY 



X'3a' ,X'78» 
PRTNin (,XR2) 
0(,XP1) ,X'40« 

nOCEPN (,XR2) ,X'FO' 

PR2r (,XR2) ,X' FO' 

X'O'.f '''2' 

BSYDOC (,XP2) ,X' F2' 

DOCBRN (,XR2) ,X'FO» 

LPDATA-H31 (13 2) .LPDATA+I 32 

PR3,XR2 

PRTNTE+3,XP1 

• -♦ EXIT SnRPOlITTNE 



* 

* 
* 
* 
« 
« 

* 



DATE 


240CT6 9 


14II0V69 


20JA1l7n 


09FEB70 


09HAR70 


01OCT70 


01APP71 


PROG TD 


OFFF-5 


EC HO. 


816529 


816555 


816576 


816640 


81«;638 


816760 


818948 


PAGE 


12 



T"*!! BJUMTEIIIBCI DUGMOSTIC PBOGPAH 



"*'»? SO. 



2'J89O01 
12« 



PFF5 



DliGBOSTIC COMTROL PPORR»H 



BBP LOC OBJECT CODE 



»DDP ST»!T SnnPCE STATSnEST 







00 E2 


1360 


CPSnST 


EQO 


X'E2' 


• 






00 EO 


1361 


CPHEPP 


EOO 


T«EO« 


* 


ODCO 


087C 


0DC1 


1362 


PB2H 


DC 


A!,2(LPDATA) 


* 


0DC2 


06 5C 


0DC3 


1363 


ASPFBH 


DC 


ALacSPBEH-^-l) 




ODC«l 


0881 


0DC5 


1364 
1365 


PP3>» 


DC 


AL2(PLTVE*1) 










1366 


*********** 












1367 


* TQUATES ************************************************************* 








1368 


*********** 










0010 


1369 


TAP 


EQD 


TMO* 


INSTROCTTON AOD»ESS PEf^TSTEo 






00 08 


1370 


APP 


EOO 


X»08' 


ADDRESS "ECALL "EGISTB" 






OOOU 


1371 


PSB 


EQD 


X'04» 


PROGPAB STATnS PETTSTEO 






000-; 


1372 


XP1 


EOO 


1 


T8DEX P^f^TSTE" 1 






0002 


1373 


TP2 


EQi; 


2 


ISDET PE'^TSTS" 2 






08 7C 


1374 


LPPATA 


EQtJ 


X'87C' 


22LC PPTHT DA-I-A A""* 






0880 


1375 


PLTNE 


EOO 


X««?80' 


STA"? OF DC? PTST LINE 






OAOO 


1376 


SPT 


EQO 


X'AOO' 


SECTION PREFACE "ABL'^' 






0A01 


1377 


PPOGTD 


EOO 


X'HOI • 


%pT - 7N r "ITTE OF PTB TD-S — TFTC • "T "" 






0AO2 


13 78 


SPFLGS 


EQII 


XM02« 


SPT - ELA'^S 






0AO3 


1379 


PHOH 


Eon 


X'A03' 


c;pT. . POTTTNE N'T13E'» -CJ^^ENT- 






0AO7 


1380 


FPTH 


EQO 


X'»07' 


S?T - ATT" OF 1ST '"N oodptt 






OAOA 


1381 
1382 


SPODT 


V'iU 


X • SO A • 


SPT - nN''T DEES TH3I," 








1383 


•• consos S 


".nSF. SWITCHES 










1384 














0080 


1385 


SSWOO 


EO'I 


X»80" 


LOOP OK SECTTTl 






OOOO 


1335 


SSV01 


BOW 


X«40' 


LOOP OS "OTJTTVE 






00 20 


1387 


SSW02 


Eon 


X'20« 


?ltPASS "«HNTAL TV^^PV ^fV' 






0010 


1388 


SSW03 


EQO 


X'lT 


BYPASS EP'OP i>PTN'' 






0008 


1389 


SSW04 


EOO 


T'08' 


BTI'ASS NOS-EP'^O? PPTH" 






0004 


1390 


SSH05 


EOO 


X'04> 


fJSE ?5'Cn AS POIN'T DEVICE 






00C2 


1391 


SSW06 


EQO 


X"02' 


«ALT OS '^PPOP 






0001 


13 92 


SSH07 


EQO 


X«ni« 


LTCKET'i soLIT 






0090 


1393 


SSH08 


EQO 


X'80' 


TSE 5203 "TTHT ''AP''TS"E 






OOW 


1394 
1395 


SSBOg 


PQO 


X'«0' 


TSHT3TT SEC-^. SSW CI='A'>TN'; 






0080 


1396 


3TT0 


EOU 


X'80« 








0040 


1397 


BTT1 


EOO 


X'UO' 








0C20 


1398 


BTT2 


EQO 


X'20' 








0010 


1399 


BTT3 


EQH 


XMO* 








0008 


1400 


BIT4 


EQO 


X'08' 








ooca 


1401 


BTT5 


EQO 


X'04' 








0002 


1402 


B^TS 


EOO 


X'02' 








00 01 


1403 
14 04 


B-T7 


Eon 


X'01 • 








00 6P 


1405 


HO 


Eon 


X'6E' 


TABL" OF "Af cnriEs - n-c f, ^ 






0003 


1406 


Hi 


yov 


X'03» 








0076 


14 07 


H2 


EQO 


X'76' 








0057 


1408 


H3 


EOO 


X'57» 








00 IB 


1409 


H4 


EQO 


X'lB' 








00 5D 


1410 


H5 


EOO 


X'5D» 


HALT DISTiLAv COP'S -5- 






007D 


1411 


H6 


EO'J 


X'7D« 








0007 


1412 


H7 


EQD 


X'07' 








00 7F 


1413 


H8 


EOO 


X«7F' 








00 5F 


1414 


H9 


EQTJ 


X'SE* 








C0 3F 


1415 


HA 


EQO 


X»3F» 








0079 


1416 


HB 


EOO 


X'79' 








C06C 


1417 


PC 


EOU 


X'6C' 








0073 


1418 


HD 


EOO 


X'73« 








00 7C 


1419 


HE 


EQTJ 


X'7C» 








c^ '*-; 


1420 


HF 


Eon 


X'3C' 








00 3B 


1421 


HH 


EOO 


X'lB* 








0C6B 


1422 


HH 


EQtl 


X'PB' 


HALT DISPLAY r-nDE -TI- 






00 3B 


1423 
1424 


HP 


EQO 


X'3B» 


HALT DISPLAY CODE -P- 






01FO 


1425 


FLAG 


Eon 


X'IFO' 








01FE 


1426 
1427 


DTABIE 


EQO 


X'lVE' 




DATE 


2aoCT6 9 


14N0V69 


20JAH70 


09FEP70 n9BAR70 


01nCT70 01AP''71 PPm TT nFFE-5 


EC HO. 


816529 


816555 


816576 


816640 


816638 


816760 818948 PAHF 12A 



IBB H»mTEHll!ICE DUGBOSTIC PROGPAB 



P»!»T SO. 

PAnE 



2SR990- 
13 



FFFS 



DUGHOSTIC COHTROL PPOGPH"! 



^5P LOC OBJECT CODE 



ADD' STMT SOOPCE ST»TEHEHT 















1428 


•* THE FOLLOBTUn IBSTIJnCTTOSS APR 


pepforp?:d aftep tvttial dcp 














1429 


♦* LOADING 


OHLT. THET APE 


OVE^LA 


ro BY T»r: ppogoah secttoss. 












0DC6 


1430 


TPEF3 


EQU 


• 
















0DC6 


1431 


BEGIH 


BOO 


* 






0DC6 


OC 


10 


0O1O 


0F7 3 




1432 




tivc 


16 (17) ,GOLOAD + 16 


STOPF A PPDGPA'' "ESTAPT AT 0000 


ODCC 


CO 


87 


1080 






1433 
1434 




B 


FTTSOB 






ODDO 


CO 


87 


021 A 






1435 




B 


PRI1T 




SPACE FPTSTEP 


ODD«t 


11 








0Dr4 


1436 




DC 


XLIMT 






00C5 


OC 


00 


0F9B 


0200 




1437 




BVC 


LISE1-15(1) ,SSOD 


PHT »OrFT TD IN PRTMTOn"" 


0DP3 


3C 


00 


032D 






1438 




HTT 


CT'.X'O' 






ODOF 


3D 


FF 


0202 






1439 




CI. I 


SIZE- 1,T'FF' 






0DE3 


F2 


01 


07 






1440 




JHE 


♦ ♦10 






0DE6 


3C 


10 


032D 






1441 




HVT 


CTP,16 






ODE» 


P2 


87 


06 






1442 




J 


♦♦9 






ODED 


08 


02 


032 


0202 




1443 




BST 


CTS,ST?E-1 




POT COB'=" STZE TV ppT«iTOTT-^ 


0DF3 


OU 


10 


0FA9 


0F7^. 




1444 




ZAZ 


LISEI-I (2) ,DF0no-1 (H 




0DF9 


06 


01 


0FA9 


C r76 




1445 


FTsns? 


AT 


LTN51-1 (2) ,DFr5TJ'(2) 




ODFF 


0" 


00 


0371) 


0390 




1446 




SLC 


CTPfl) .OIE 






0S05 


CO 


01 


0r/F9 






1447 




3HZ 


FTMDf? 






0E09 


CO 


87 


0?1A 






1448 




B 


PPTUT 




PRTsr m- STS?E'< •On'^I AND 


OEOO 


01 








OEOD 


1449 




DC 


TL1">1' 




CCE SI^E 


OEOE 


16 








OEOE 


1C50 




nc 


IL1'22' 






OEOF 


OFAA 






OS 10 


1451 




DC 


AL2(LI?IE11 






0F11 


38 


80 


0204 






1452 




TBS 


cpn,T»8r>« 




"3AVCH T^ SO DHAL PPOT''^* F^'ATnoF 


0E15 


F2 


90 


08 






1453 




JF 


yOTDP 






0E19 


CO 


87 


021 A 






14 54 




B 


PPIU~ 




'"'TS' TSD'CATTOS OF D^IAL "'inPAS 


0E1C 


01 








O'JIC 


1455 




OC 


XLI'OT 




CP n-r»|I5P 


0E1D 


0^- 








0E1D 


1456 




DC 


TL1'9« 






0E1E 


O^B? 






OEI' 


1457 




DC 


AL2(FEA-'1) 






0E20 


CO 


8^' 


021 A 






1459 


HOTDP 


B 


PPTSr 






0E?4 


01 








0E2ft 


1459 




DC 


TLI'01' 






0F25 


33 








0E25 


1460 




DC 


TLI'51' 




PRTNT 'S 


or26 


1093 






OF 27 


1461 




OC 


AL2(DA5;H) 






0K2'i 


CO 


87 


021A 






1462 




n 


POIMT 




??•'??"' 051'' DEFISITIOI TABLE HFAnifr 


0E2C 


01 








0E2C 


146 3 




DC 


XLI'CI* 






0E2D 


33 








0E2D 


1464 




nc 


iii«5:' 






0E2E 


0F56 






0S2F 


1465 




DC 


AL2(LT1I';7) 






OEIO 


CO 


87 


021 A 






1466 




5 


ppTir 






OTia 


01 








OB 34 


1467 




DC 


XLI'OT 




^ 


0E35 


33 








0E3S 


1468 




DC 


TL1'51« 




PPT^"^ 'S 


-0E36 


1083 






0E37 


1469 




DC 


AL2{DASH1 


















1470 












0E3B 


C2 


01 


0232 






1471 




LA 


OTAB.Tol 




LOAD 'JDT POTM'E" 


Of3C 


3C 


01 


0F77 






1472 




nvz 


FLAGS, 1 




TWDTCATE SFTnP FOR FIPST EH^PY 


OEttO 


70 


00 


00 






1473 


ODTLP 


CLT 


(.X^l) ,X'0' 




SKIP EN*^PY !.■» Sn DEVICE CODE 


0E«J3 


F2 


81 


8E 






1474 




JE 


HOOHTT 






OEUe 


3H 


01 


0F5O 






1475 




ST 


0ADDR,X'?1 






OEUA 


CO 


87 


021E 






1476 




B 


UNPACK 




IISPACK DEVICE IDENTT FICA-^IOI 


OE«E 


01 








0E4E 


1477 




DC 


ILI'1' 






OEUF 


0000 






0E50 


1478 


HADDS 


DC 


AL2(*-*) 






0E51 


0883 






0E52 


1479 




DC 


AL2(PLTSE+3) 






OESS 


C2 


02 


0884 






1490 




LA 


PLISE*4,T'»2 




POINT X!?2 AT opiHT LINE 


0E57 


3C 


60 


00 






1481 




HVI 


0(,X?2) ,C--' 




PrjT DASH AFTER DEVICE TTI 


OFS» 


OC 


01 


0F7 3 


390 




1482 




nvc 


BASK(2) ,OHE 




INITIALIZE DATA FIELDS 


0E60 


3C 


00 


0F74 






1483 




nvT 


OPNOa.O 






0E6<» 


OC 


00 


0E71 


0F72 




1484 


ODTLPI 


(JVC 


CHK1*1 (1) ,nAsir- 


-1 


SET OP nASKS TO CHECK OP'T'TON PIT 


0E6A 


OC 


00 


0E74 


0F73 




1485 




nvc 


CHr2+1 (1) ,!»ASK 






0E70 


79 


00 


01 






1486 


CHF1 


TBF 


1(,XP1) ,*-• 




CHECK THIS BIT 


0E73 


79 


00 


02 






1487 


CHK2 


THF 


2(,XP1) ,*-• 






0E76 


P2 


10 


16 






1489 




JT 


SEX-'OP 




BRANCH IF OFF 


0E7q 


8C 


00 


01 0F74 




1489 




HVC 


1 (1,T''21 .OPNUH 




PUT PRINTABLE OPTION NnjIHE" INTO 


0E7E 


BA 


FO 


01 






1490 




SBN 


1 (,XP2) ,X'FO« 




PRINT LINE 


0E81 


3D 


FA 


01 






l^pl 




CLI 


1 (,XP2) ,X'FA« 






0E«O 


P2 


82 


06 






1492 




JL 


♦♦8 






0E87 


8E 


00 


01 0F6B 




1493 




ALC 


1(1, TP2) ,TC7 






0E8C 


E2 


02 


01 






1494 




LA 


1(,X«»2) ,XP2 




POINT AT NEXT PRINT SLOT 


0E8F 


OE 


01 


0F7 3 


0F73 




1495 


KEXTOP 


ALC 


11ASK(2) ,f1ASK 




5ET riP -^0 CHECK NEXT OPTION PTT 


DATE 


2«0CT69 


14I(0V69 


20JA'J70 


09FEB70 09NAP70 


01OCT7O OUPOTI PPDG TT) OFFF-5 


EC WO. 


816529 


8165S5 


816576 


816640 


816638 


816760 


8'8949 PAGE 13 



TBH aftlNTBHAHCE DIAGHOSTTC PRO';PAH 



D^PT SO. 






TPF5 



DIAGBOSTIC COHTROL PBOGPAH 



E8P LOC OBJECT CODE 



ADDP STHT SOOPCE STATEBEN'^ 



0E95 


OE 


00 


0F7i» 


0390 




1496 




ALC 


OPNnH(l) ,OSE 






0E9B 


3D 


OC 


0F7U 






1497 




CLI 


OPHITH,T«0C> 






0B9F 


CO 


82 


0E6U 






1498 




PL 


DDTLPI 


COV^TSOF nt^TL ULL OPTT'^N'; rBFr"""!: 


OEAa 


3D 


01 


0F77 






1499 




CLT 


FLAG5;,1 


PLANCH T" NOT FTOST 'JDT EX'-PY 


0EA7 


F2 


01 


OC 






1500 




JSE 


CfCPTF 






OEAA 


8C 


05 


09 0F8D 




1501 




nvc 


9 (6,XP2) .LD" 


TNTTCATE ~HAT THIS TS LOADTST DFVIC- 


OEAF 


3C 


02 


0F77 






1502 




RVI 


TL\iiS,2 


ISDTCATE SECOND 'JDT EH'^Y 


0EP3 


F2 


87 


10 






1'^03 




v1 


PP7DT 


GO 


PPTNT THI3 EVTPy 


0EB6 


3D 


02 


0F77 






1504 


CKPTP 


CLT 


FLAGS, 2 


BRANCH TF NOT SPCOS^ UD" FS-OY 


OEBA 


F2 


01 


09 






1505 




JSE 


PSnDT 






OEBD 


8C 


06 


OA 0F9i» 




1506 




S7C 


10(7, IP2) .POST" 


ISDTCUTE THST T'^IS TS P^TS'-E'' 


0EC2 


3C 


00 


0F77 






1507 




HVI 


FLAGS, 


"l 


PST 2 -NTPIES HSV? PT"N HSN'JL"? 


0EC6 


DC 


n 


1000 


089A 




1509 


ppnDT 


nvc 


LTSE3(26) ,PLTVE*2«i 


SET 


UP AND P'TNT HIE 


OECC 


CO 


87 


021A 






1509 




p 


PPTNT 






OEDO 


01 








OEDO 


1510 




DC 


TLI'01' 






OEDl 


1A 








OEDl 


1511 




DC 


IL1'26« 






0ED2 


1000 






05D3 


1512 




DC 


AL2{LIS'!3) 






OED» 


78 


10 


01 






1513 


SOOSTT 


TBH 


1 (,T'>1) .T'lT 


CHECK "OP IA3T ?«""" 


0ED7 


D2 


01 


03 






1514 
1515 




LA 


3(,X»1) ,T'1 






OEDA 


CO 


90 


0E40 






1516 
1517 




BF 


ODTLP 






OEDE 


OC 


01 


0F0 3 


0203 




151S 
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PAPT NO. 
PATE 



2S8'n01 



FFF5 



DIAGNOSTIC CONTROL PROGPAM 



CROSS-REFE'»ENCE 



SYBBOL 


T 


LI^N 


VALUE 


DEFN 


REFERENCES 














AINPDT 


A 


001 


0067 


0109 


0111 
















AJDEST 


A 


003 


0128 


0216 


0213 
















ALLCLR 


A 


004 


0F10 


1530 


1525 
















APR 


C 


001 


0008 


1370 


OIO"* 
1 190 


0264 
1306 


0278* 
1307 


0525 
1589 


0602 0630 


1654 0677 0774 0743 


0927 1037 




ARPSAV 


A 


001 


03EE 


0694 


0604 


0607* 


0630* 


067 2* 


1190* 1193 


1 194* 






ASPFBH 


A 


002 


0DC3 


1363 


1335 
















BEGIN 


A 


001 


0DC6 


1431 


0414 


1695 














BTTO 


C 


001 


0080 


1396 


0266 


0546 


0549 


056 8 


0P69 0932 


1043 1121 1312 






BIT1 


c 


001 


0040 


1397 


0547 


0950 


1014 


1137 










BIT2 


c 


001 


0020 


1398 


0266 


0281 


0543 


0945 


1129 








BTT3 


c 


001 


0010 


1399 


0347 


0532 


0943 


1130 


1134 








BITtt 


c 


001 


0008 


1400 


0266 


0543 


1148 












BITS 


c 


001 


0004 


1401 


0260 


0266 


0541 












BIT6 


c 


001 


0002 


1402 


0540 
















BIT 7 




001 


C00 1 


1403 


0573 
















B00T1 




00« 


0000 


0022 


0021 


0031 














BOOT 1 A 




003 


GOOD 


0026 


0026 
















BOOT IE 




003 


0017 


0030 


0023 


0027 














BOOTH 




002 


0015 


0033 


0024 
















B00T2 




OOU 


0200 


0053 


0028 


0051 


0052 


005 3 










B00T2A 




003 


020D 


0057 


0055 


0065 














B0OT2B 




003 


0216 


0060 


0060 
















B00T2E 




003 


020A 


0056 


0057 


0061 














BOOT21 




003 


0205 


0070 


0064 
















BOOT22 




001 


0239 


0071 


0064* 
















BOOT 2 3 




002 


023B 


0072 


0058 
















as r DOC 




003 


0DA8 


1353 


1353 
















BSTLP 




003 


0775 


1072 


1072 


1677* 


1678* 












BSTLPH 




003 


0D8A 


1342 


1 342 
















BSTIPO 




003 


07A2 


1087 


1087 
















BSTIPI 




003 


07AE 


1091 


1093 
















BT2 




003 


0204 


0054 


0070 
















BUST 




003 


0074 


0113 


0113 
















BT«H 




003 


079C 


1297 


1290 
















BT41X 




003 


OCFO 


1290 


12 97 
















CDERRO 




03 


0A58 


0328 


0325 
















CDETIT 




004 


007D 


0116 


0109* 
















CDREAD 




004 


0060 


0106 


0105 


0106 


0124 


0265 


028=? 042 3 


0432 0433 






CHAIN 




005 


OAOB 


0300 


0389 


0391 














CHCTR 




001 


OAOC 


0301 


394* 


0406* 


0421* 












CHGTST 




004 


1149 


1638 


1609 


1636 














CHKEND 




003 


0196 


0258 


0245 
















CHKFU 




003 


0302 


0579 


0574 
















CPKSSW 




05 


0165 


0244 


0237 
















CHKSSO 




004 


0177 


0248 


0256 
















CHKSS1 




004 


O409 


0728 


0725* 


0727* 














CHKSS2 




003 


041B 


0733 


0728* 


0730* 














CHKSHS 




006 


066A 


0973 


0986 
















CHK1 




003 


0E70 


14 86 


1484* 
















CHK2 




003 


0E7 3 


1487 


1485* 
















CIOHLT 




003 


0787 


1278 


1268 
















CTOSTS 




002 


074C 


1275 


1266* 


1267 














CT01 




004 


0CP7 


1263 


1255 
















CI01A 




003 


07BB 


1277 


1272 
















CI01B 




003 


n:BB 


1264 


1277 
















CI02 




003 


07BS 


1279 


1253* 


1262* 














CT02X 




003 


OCBE 


1265 


1279 
















CKBIK 




003 


013B 


0223 


0227 
















CKCHII 




005 


0B24 


0389 


0384 
















CFCIO 




004 


11EB 


1680 


1663 
















CKCOM 




003 


0150 


02 36 


0412 
















CKCOflA 




003 


OAOD 


0303 


02 04 
















CKCOH 1 




004 


O10F 


0204 


04''3* 
















CKCPO 




003 


0A26 


0312 


304 
















CKDCPS 




05 


0B10 


0383 


0334 
















DATE 


2«OCT6<> 


14N0T69 


20JAH70 


09FEB70 


09nAR70 


01OCT7r 01AOP71 


PRO'; TO 


OFFE-S 


EC NO. 


816S29 


816555 


816576 


816640 


816638 


816760 818948 


PARE 


15A 



TBH «»TNTENAIICF DIAGNOSTIC PPORFAH 



PART NO. 



2589901 

16 



!'FF5 



DIAGNOSTIC CONTPOL PROGPAM 



CROSS-PEFERFVCF 



STHBOL 


T 


LEH 


VALOE 


DEFN 


REFE"! 


RNCES 










CKEND 




003 


0B71 


04 10 


0392 












CKP 




004 


116F 


1648 


1646 












CKPTR 




004 


0EB6 


1504 


1500 












CKPKP 




no3 


010C 


0203 


0128 


0156 










CKODT 




03 


0A60 


0333 


0313 












CLRCOF 




004 


0108 


0188 


0201 












CLRLOP 




004 


0BF9 


1524 


1528 












CflLOOP 




06 


0OB8 


0139 


0144 












cnPK 




04 


0333 


0602 


063 ! 


0673 










cwpKxa 




001 


0359 


0613 


0602* 












CP30ST 




001 


00E2 


1360 


1342 












CPFRP2 




003 


0D56 


1325 


1343 












CPNFPR 




001 


00 EO 


1361 


1341 












cpn 




001 


0204 


0460 


0320* 


0323* 


1452 








CTP 




001 


032D 


0597 


6 05 


0606 


0608* 0649* 


068B* 1438* 1441* 1441* 1446* 






OADPR 




001 


0493 


07 77 


0774* 


0778 


0787* 








DASR 




001 


1083 


1587 


1461 


1469 










DATSWS 




002 


03F8 


0717 


0252 
0767 
1641 


0720 
0782 
1643 


0725 0729 
0789 0794 
1645 1647 


0729* 0710 0719 0741 0745 0747 
0796 0799 0806 0814 1610* 1611 
1693 1694* 


0764* 076fi 
1638* 1639 




DECO 




004 


01F4 


0285 


0274 












DBCI 




001 


01 F5 


0286 


0276 












DBST 




002 


0136 


0221 


0211 


0214 


0222* 








0EST1 




001 


0379 


0641 


0609* 


0642* 










DEST2 




001 


3C7 


0681 


0610* 


0687* 










DE7 




001 


0A5F 


0332 


0344 


0351 


0355 








DFOOR 




02 


0F76 


1570 


1444 


1445 










DJHP 




001 


0470 


0770 


0754* 


0775 


0775* 








DOCEPM 




003 


0D9 3 


1346 


1350 


1354 










Dn^T 




003 


07AS 


1088 


1084 












roLio 




003 


006E 


0111 


0118 












toui 




003 


0787 


1296 


1287 


1291 










DCUIX 




003 


OCDB 


1283 


1295 


1296 










DSK5YS 




001 


IOCS 


1604 


1600 












DTABLB 




001 


01FE 


1426 


0270 


0278 


0531* 0571 


058B* 1598 1598* 






DOBCO!" 




002 


06 2 A 


0948 


1651* 


1665* 










D0«8 




003 


0A02 


0297 


0400 


0402 










D120 




O03 


0A05 


0298 


0396 


0398 










ESDCIR 




001 


0132 


0197 


0194 












ERDRTW 




005 


0901 


1119 














ESTRT1 




001 


0289 


0535 


1596* 












E«ITRT2 




001 


0328 


0590 


1597* 












EOFST 




004 


0D52 


1324 


'321 












ERR 




003 


0081 


0117 


0110 












FSAT1 




09 


0FB3 


1580 


1457 












FTSDSZ 




06 


0DF9 


1445 


1447 












FIVE 




001 


03DF 


06 89 


0607 


1337 










FTXnOB 




004 


1084 


1589 


0305 


0315 


1433 








FLAG 




001 


01FD 


1425 


0260 


0266 


0281 077 1 


1148 






FLAGS 




001 


0F77 


1571 


1472* 


1499 


1502* 1504 


1507* 






FLIHE 




005 


0D79 


1337 


1327 


1331 


1334 








FRTW 


C 


001 


0A07 


1380 


0808 


1155 










FO 


c 


001 


OOFD 


0520 


0583 


0772 










F1 


c 


001 


OOFA 


0521 














FU 


c 


001 


00F1 


0522 


579 


0778 










GO LOAD 


A 


001 


0F63 


1561 


1432 


1559 










HA 


c 


001 


003F 


1415 


1150 


1560 










HALT 




004 


0222 


0479 














HALT A 




003 


09 E6 


1214 


1212* 


1213* 










HALTS 




003 


09F1 


1217 


1215* 


1216* 










HALT2 




004 


09BC 


1202 


1196 












H»^T3 




O04 


09C3 


1205 


1198 


1201 










HB 


c 


001 


0079 


1416 














HC 


c 


001 


006C 


1417 


0581 












='0 


c 


001 


0073 


1418 


0279 












ilDG 


A 


028 


05D3 


0919 


68 












GATE 




240CT6O 


141IOT69 


20JAW70 


09PEB70 


09HAR70 10CT70 01APR71 


PROR ■'T) 


nFFF-5 


BC HO. 


1 


816529 


816555 


816576 


816640 


816638 816760 818948 


PAGE 


16 



IBB MAT1ITEH»NCE DIAGNOSTIC PPORR»n 






IfH 



FFF5 



DIAGNOSTIC CONTROL PBOGPAH 



CPOSS-RFFERESCf: 



SYMBOL 


T 


LEN 


VALUE 


DEFN 


REFERENCES 










HDG1 


A 


001 


05B8 


0918 


0931* 


0934* 


0957 0961 


0965 






HE 


C 


001 


007C 


1tt19 


0562 












HEXIT 


A 


OOU 


09Ftt 


1218 


1200 


1203 










HF 


C 


001 


003C 


1tt20 


0755 












HH 


C 


001 


003B 


1tt21 


0030 
0812 


0056 
0821 


0117 0279 
OR63 1061 


0328 0'!49 0404 0562 0SR1 0763 
1078 1139 1150 1249 1^60 


0780 0R01 




HLTA 


A 


003 


0tt57 


0755 


1614* 












HLTB 


A 


003 


0tt63 


0759 


1616* 












HLTC 


A 


003 


0tt9A 


0780 


1619* 


1620* 










HLTC1 


A 


003 


0308 


0581 


0587 


1621* 


1622* 








HLTD 


A 


003 


0ttD7 


0801 


1623* 


1624* 










HLT1! 


A 


003 


0570 


0863 


1629* 


1630* 










HLTF 


A 


003 


02D1 


0562 


1 6 3 1 * 


1632* 










HLTG 


A 


003 


0F6 


1560 


1633* 


1634* 










HLTHD 


A 


OOtt 


01D7 


0278 


0273 












HLTTAB 


A 


001 


0980 


1185 


1184 


1192 


1635* 








HP 


C 


001 


003E 


1tt23 


0757 


0759 










HO 


C 


001 


006B 


1tt22 


0762 












HO 


C 


001 


0067 


1tt05 


0328 


0349 


0404 








HI 


C 


001 


000 3 


1tt06 


1139 












H2 


C 


001 


0076 


1tt07 


0780 


0801 


0R21 








H3 


C 


001 


0057 


1tt08 


0812 


0863 










Htt 


C 


001 


00i»^ 


1tt09 














H5 


c 


001 


005D 


IttIO 


0030 


0056 


0117 1078 








Hf 


r 


001 


007D 


Ittll 


1061 


1249 










B7 


C 


001 


0007 


1412 














R8 


C 


001 


007F 


1tt13 














H9 


C 


001 


005F 


Ittitt 














lAF 


C 


001 


0010 


1369 


0475* 


0476* 


0477* 0478* 


0479* 0480* 0481* 






TDADDR 




002 


06tt3 


0956 


0953* 












IHGADR 




002 


0B8B 


0tt19 


0393* 


0420* 










UPDT 




001 


0880 


0tt31 


0107 


0137 


0154 0164 


0210 0318 0418 






TPL 




001 


OOflO 


0tt36 


0025 


0059 










ISCHH 




OOtt 


0B3tt 


0393 


0390 












ISCIO 




006 


1206 


1688 


1683 












ISSSS 




003 


017tt 


02tt7 


0387 












IS120 




OOtt 


0B66 


OttOfi 


0397 


0399 










ITR1 




001 


0537 


0843 


1223 












TTR3 




001 


2Ctt 


0555 


1225 












IT? 4 




001 


0680 


0979 


1226 












TTR6 




002 


0231 


0tt83 


1228 












ITH7 




001 


055C 


0856 


0791 


1229 










J 




003 


0r6C 


1566 


1603 












Jl 




003 


0F6F 


1567 


1601 












LAST 




001 


OCDA 


1276 


1688 


1688 


1688* 








LBASE 




001 


0208 


0tt63 


0519 


0524 


0570 








LDEND 




OOtt 


0950 


1141 


1122 


1133 










LDPT2 




OOtt 


01A7 


0264 


0280 


0289 










LOR 




006 


0P8D 


1577 


1501 












LOB EG 




OOtt 


03E3 


0691 


0652 


0655* 


1219 








LDODT 




005 


0AA9 


0355 


0352 












LD80RK 




OOtt 


005D 


0tt33 


0133* 


0134 


0150* 0151 








LDX 




OOtt 


01A3 


0262 


0282 












LDXa 




001 


01A6 


0263 


0264* 












LD1 




001 


0296 


0539 


0533 












LEHGTH 




OOtt 


OOBU 


0138 


0152 












LEXIT 




OCtt 


121A 


1692 


1593 












LEI 




003 


02E1 


0568 


0565 












LE2 




OOtt 


0325 


3589 


05tt1 


0544 


0569 1567 








LHLT1 




OOtt 


09DE 


1212 


1205* 












LHLT1A 




OOtt 


09E2 


1213 


1206* 












LHLT2 




OOtt 


09E9 


1215 


1207* 


1211 










LHLT2A 




OOtt 


09ED 


1216 


1208* 












IIWEI 




022 


OFAA 


1579 


1437* 


144tt* 


1(|(»5« 1U51 








LI1IE2 




029 


0rE6 


1582 


1465 












1IIIE3 




026 


1000 


1583 


1508* 


1512 










DATE 


2H0CT69 


141I0V69 


20JAH70 


09FEP70 


09BAR70 010CT7O 01A'' = 71 


ppnn ID 


npirp-5 


EC WO. 


1 


916529 


816555 


816576 


816640 


8166^8 816760 818948 


PARE 


16A 



IBM n»IKTENANCE DI»nNOSTIC PROGRAM 



PAP" VO. 
PAGE 



2^89901 
17 



FFFS 



DIAGNOSTIC COHTROL PROGPAH 



CROSS-REFITRKNCE 



SYHBOL 


T 


LEN 


VALUE 


DEFN 


??EFERESCr- 










tINEU 




oae 


102E 


15 8' 


1517 


1542 










LINES 




34 


1050 


1585 


1546 












LINK 




00« 


0216 


0476 














LH9 




002 


0957 


1144 


1 119* 












tnsG 




014 


05B5 


0916 


0482 


1144 










Lfisca 




002 


022F 


0482 


1 119 












LNGttI 




001 


0024 


1295 


1664 


1664* 










LNKI 




004 


0534 


0842 


0864 












LNKIA 




004 


053F 


0846 


0551 












LNK2 




004 


054A 


0850 


0845 


0870 










LNK3 




004 


055E 


0859 


0851 












LNKtt 




05 


0577 


0867 


0862 












LMK5 




004 


058E 


0874 


0840* 


0848 










LNK6 




004 


0592 


0875 


0826* 


0873* 










LOAD 




004 


022A 


0481 


1555 












LODEB 




004 


028A 


0536 


0523* 


0526* 


0S91 








LONE 




001 


0277 


0530 


575 












LOOP 




003 


009B 


0129 


0126 


0135 






m 




LPBUST 


C 


001 


00E6 


1055 


1072 












LPDATA 


C 


001 


087C 


1374 


0929* 
1362 


0949 


0949* ion 


1011* 1058 


109^ 109S* 1292 1292* 1355 13S5* 




LPERP2 




003 


0753 


1061 


1063 


1073 


1671* 1672* 








LPISAG 




001 


0800 


1100 


0395* 


0407* 


1057 








LPNBDT 




001 


OOEO 


1056 


1063 


1073 










LPTONE 




005 


OOFB 


0159 


0430 












LVHOB 




006 


1210 


1690 


1594 


1661 


1679 








LXt 




004 


02EB 


0571 














LX2 




003 


02F2 


0574 


1567 


1601* 










HAGN 




003 


0F42 


1550 


1554 












BASK 




002 


0F73 


1568 


0372* 


0375 


0375* 0377 


0378 1482* 


: ■J484 148"^ ■!49S 1'495* 




HBTAB 




008 


0F87 


1573 


1635 












BFCO 




004 


0F59 


1558 


1548 


1551 










HHLT2 




003 


0787 


1078 


1085 


1088 


1094 1240 


1277 1278 


1279 1296 12°7 1664* 1688* 




HNN 




001 


0003 


0596 


0632 


0674 










HN2 




001 


0002 


0595 


0643 


0646 










HOD EL B 




004 


10E4 


1613 


1608 












BODELD 




004 


1145 


1637 


1612 












HODIFT 




001 


04 i« 


0732 


0734* 


0798* 










HOVE 




005 


0103 


0161 


0158* 


015 9* 










HOVID 




003 


0315 


0585 


0577 












HOVIT 




006 


OFOO 


1526 


1518* 


1522* 


1523* 1524 


1527* 






HOVP 




006 


1169 


1647 


1640 


1642 


1644 








HSTAT 




002 


074C 


1054 


-'082* 


1083 


1091* 1092 


1275 






BSTATH 




001 


0D6F 


1333 


1307* 


1339 










HVX1 




001 


0366 


0634 


0632* 


064 3 


0646* 








BVX2 




001 


03C5 


0680 


0674* 


0o83 


0685* 








azR 




001 


0001 


0594 


0683 


0685 










BZZ 




001 


COOO 


0593 














HD 




001 


OCFF 


1294 


1295 


1664 










NEG1 




002 


032F 


05 98 


0642 


0648 


0649 0682 


0687 1523 


1527 




HEG3 




02 


0088 


0120 


0148 












HEGO 




002 


008A 


0121 


0149 












NEXT 




OOj 


012B 


0217 . 


0229 












HEXTOP 




006 


0E8F 


1495 


1488 












NSXTF 




004 


008B 


0124 


0068 
0310 


0163 
0327 


0195 U202 
0329 0350 


0224 0239 
0363 0405 


0242 02S7 0259 0267 0283 O307 
0411 0422 




HEXTSS 




004 


0689 


09 84 


0974 












NINE 




001 


0407 


0726 


0678 












NOCHG 




003 


0B6E 


04 08 


0401 


0403 










HOPB 




001 


0000 


0437 


0112 












NOTDP 




004 


0E20 


1458 


1453 












NOT6«K 




006 


0EF3 


1523 


1520 
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1682 


1684 


1685 


1685* 












1689* 
























X?2 


C 


001 


0002 


137 3 


0052 


0053* 


0057 


0058 


0060 


006 1 


0064 


0064 


0065 


0105 


0106* 


"109 












0110 


0111 


0113 
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0140 
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011*6 


01i;9* 


0214 


0217 


0222 


0222 


0224 


0227 


0229 


0239 


0242 












0259 


0267 


0283 


0307 


0310 


0327 


0329 


0345* 


0346 


0346* 


0347 
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0353 


0355 


0356 


0357 


0379 


0380 


0405 


0411 


0422 
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C656 
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0754 
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0762 
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0766 


0767 


0774 


0775 
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0789 


0791 


0792 


0794 


0796 


0798 


0799 
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0804 


0805 
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0813 
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0818 


0820 
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0827 
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0924 
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0934 
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0940 
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0968 
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0986 
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1020 


1020* 
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TBB BHIMTBSUHCE DT)l&^"STIC PFOGRMH PH^T VO. 25R9901 

PFFB DIUGMOSTTC COMTFOL PBOGPAH 

OBJECT CASD LISTTSR 

THE CHARACTEP INDTCATES A BLAHK COLOHH AND THE CHAPACTEPS 5 E H TNDTCATE VUflriFIC SHI'^T. 

Ct : THF0T1GH 16 CL 17 THPOaoH 32 CL 13 THPO'JGH U8 CL U9 THPOUGH 61 CI 65 "HPOUf;V 8^ CL «< 1 THPO'TPH 9^ 
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TBB naiSTESAllCE DIAGNOSTIC PFOGRAH PAPT SO. 2Sft9<»01 

pat; 20 

7ffs diaghostic ccrtpol progbam 

object card li5tthg 

ct 1 throogh 16 cl 17 throogh 32 cl 33 trrohgh u8 cl u9 thfotigh 6tt cl 65 throngh 80 ci r1 thpcngh 96 

t+-ip =0'» -idoh* dh%bg ub | >0h* c<70chf0 . a'^b3 2 -j; b3ep b1 6 -i* ?t2-6pa pt 5/80 ph-ffp50027 
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T + -)< CB -*n_ / 2_KE2X E- C)fl»*-< 20H*BDT.S A) -^211 * 9D HH9Y*D«-6-BB<B 5A>r!«A HHa/AESY* ♦ 3tOFFF500U2 

T+-;GB H-.GA03C_ 'aH^LS; "X; =<;?; :*:09>0/-»+H B'^-.H S »YHP"< +GWO;G -|^HPAf*S f;*LOH* | =J4FFr500U3 

T*-- .B + '>7-/1<-'8E'' — O;0a3S8DC-.2D X /=G|3= C/aOt/=G-f 1 "C, 3"HK0=»3S8f>C- -DI, /=G<<-0T"B5C -/6* N'OFFFSOOaU 

T.O-?a-.. 3» I?^'"T 9aG_aO; .T9+PW9 = T ZnF_^'») .LS(POS'T PQF_*0*.C1<PF13T ILTJ_' EJ8FFFS00U5 

T+-ri:RD0A5OH?GA6 E|08- YB»/ =0-H HBtHA TI_ a-D QX B 7.-C F,F: H F BT) GS -| TJ HoaY* P;A »KYFFF500U6 

T*-V5 )HA aBEBJD 95 G2D |0+0| /On %0H*BF0*+ ASP" CO A --9n G'az CS)C« "(«;<HA10 B-< G < BOB< FKaFFFSOOU? 
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TBH H»I!ITE!I»»CE DTHGHOSTIC PBORRUB PH^T NO. 2S89901 

FPF5 DIAGHOSTIC COMTBOL PBOGBAS 

OBJECT CURD LISTING 

CL 1 THBOOGH 16 CL 17 THRODGH 32 CL 33 THROnGH Ua CL 19 THPOUTH 64 C L 6S THoOTJr.H 80 CI 91 TH^Oni^H 9<^ 

T*-X,DL-H -T2ac? 2/0*8 -HtiiV 1H T / T-CP6SQ WO AH ( L7"B- 94 YAa20 ., AX HO K CO -I * GH %mFFFS0Ott9 

TDOX" HO ♦OCO C /0E5OH*C80f!OBB 4O=»FFF'^C0';0 

TBJ"" "-C=B7rDH5 390 f i;FFFS0nS1 

T*-3A9C_»8H*L.- F2E-I- $T?HF<?:A -.S-DO?E A-flHHX | f; H KS | H'?AC03»; ** ? T?DF«0-DH-Gao -<< . 1-DFFP'^OO "^.2 

T+-3aPLS9 3T-nG( S5 CK 5D? STB* BZ = BGP"AS (♦B'^D75 + S°-GO*tGO||| 2 +';2s + G0*O2C'^ I ? X ♦ 7?*FP''50nsi 

T 63=/6* -.,'IFFF'^""nS4 

T*-5*0-HGE. EHDtC HOtflADttO ESTT-F , 3. /OHK + H »'S"H eA3'IE -T2/0F.9B " HOT F<*L-H -T2nD7 /-^Ln -H^FFFSOO SS 
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• *««« ******* « «« 
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T*- = *|?BG /. /O. X1''HG|"HR<0 IC U HDA — i?C fl6D/ 60FA Y*G'^LS'<GD1) X of,»T\8»T^pc; ,5r> 1 5 ( ^nf. -(T_r>FPFSOC<'i'^ 

T + -"P6<|06*N 8»X Z1HCX9»I 1+LA«aC PI • Ln5*XTR<LEirx N2:|I5_V Bsinnuas K4_. K4C19* .TF, <. ^.f,<< T.-liFFfnoi^' 

1*/ K5_XT1*1T&FC VI) XI1">/-EDA EDA EPA EDA ERA EDA EDA EDA EDCDO') 4 • 5 AKPn*". ^A »^P •'E<< :T?FVF^00'^7 
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IBM B*TNT?!IAJICE DT4GH0STTC PR0GPA!1 PURT NO. 258990 

PAGE 21 

FPFS DIAGSOSTTC C0KT50L PPOG5AH 

OBJECT CABD LISTING 

CL 1 THBOOGH 16 CL 17 THBO'TGH 32 CL 33 THOOOGH «8 CL '49 TH»0'!GH 6U CL 65 THOOHGH 80 CL B1 THPOOGH 9^ 
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